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PREFACE 



This ptiblication describes the internal 
logic of the FORTRAN IV compiler. 

Section 1 introduces the compiler's 
structure, briefly explaining the primary 
functions of each major division and 
describing the interrelationships of these 
divisions . 



PREREQUISITE READING 



Understanding the material contained in 
this manual requires knowledge of the 
infornBition contained in the following 
manuals: 



Sections 2 through 7 describe the six 
major divisions? they explain the logic 
required to implement the basic functions 
and objectives and provide a frame of 
reference for the program listings- Common 
data, such as tables and work areas, are 
discussed only to the extent required to 
understand the logic of the major divi- 
sions. Flowcharts compatible with the 
level of coverage are also provided, as are 
nesting charts which show the linkages 
among the subroutines that compose a major 
division; they show the called and calling 
relationship among the subroutines. In 
support of the nesting charts are decision 
tables that show the calling relationship 
anM3ng the subroutines and indicate the con- 
ditions under which subordinate subroutines 
are called. 

All flowcharts for the routines are in 
Section 8 , grouped in the same order as the 
routines are presented in the text. 

The appendixes contain additional 
reference material. 
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Manuals recommended for a fuller unde- 
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SECTION 1: INTRODUCTION 



The TSS/36 FORTRAN IV compiler is 
implemented in accordance with the conven- 
tions and requirements for systems programs 
in the TSS/360 environment. It is relocat- 
able, reenterable, closed, nonprivileged, 
and nonresident. 

The compiler organization and informa- 
tion flow are designed particularly for 
processing in the time-sharing environment- 
Wherever possible, to reduce the "page- 
turning" load on TSS/360, the intermediate 
data is organized and processed serially, 
in file form, rather than in a form requir- 
ing random access. The presence of the 
entire file in virtual storage ensures fast 
access to its contents; repeated references 
to the same virtual storage page, inherent 
in serial processing, reduces the number of 
pages needed in rapid succession- 
While primarily a conventional batch- 
processor, the compiler contains special 
features making it especially suitable for 
conversational, terminal-oriented opera- 
tion. The compiler syntax analysis per- 
forms statement- by- statement error checking 
of the source program as it is input 
through the Language Processor Control pro- 
gram (LPC> . Diagnostic messages are 
returned to the user's terminal via LPC, 
and each appears at the terminal following 
the listing of the statement in which the 
error was detected. LPC gives the user the 
opportunity to correct the error, whether 
it be in the last statement processed, or 
in some earlier statement. Then LPC in- 
forms the compiler of %irtiether a change was 
made and if so, which lines are affected. 
If only the last statement was changed, the 
compiler "forgets" the effect of the last 
statement and begins compilation with the 
statement replacing it. Otherwise, the 
compiler, under direction of LPC, restarts 
compilation from the beginning of the 
source program module. In this manner the 
most conHEon errors, those local to the last 
statement processed, may be corrected with 
minimum loss of time. 

After the END statement has been pro- 
cessed by the first phase, the compiler's 
second phase may detect errors of a more 
global nature (undefined statement labels, 
illegal DO- loop flow, etc.). The resulting 
error messages are passed to LPC, but now 
LPC does not allow the user to supply 
correction lines. When the compiler's 
second phase is complete, LPC gives the 
user the opportunity to correct errors or 
to go on. If errors are corrected, the 
compiler will recompile from the beginning 



of the stored source data set, and another 
conversation is possible. Otherwise, com- 
pilation proceeds to termination through 
the renaining compiler phases. 

Detailed information concerning the con- 
versation between terminal user and compil- 
er is included in the description of the 
Compiler Executive routine (Exec) , which 
interfaces with LPC. 



OBJECT PROGRAM MODULES 



The compiler produces an object program 
module COPM) consisting of a program module 
dictionary (PMD) , an optional internal sym- 
bol dictionary CISD) , text (the binary 
instructions and constants) , and a list of 
external names. 

The PMD contains heading information, 
used to identify the module, and a control 
section dictionary (CSD) for each control 
section occurring in the module. The CSD 
specifies which text entries require loader 
address computations or satisfaction of ex- 
ternal references or references to other 
control sections. A complete specification 
of the PMD format is given in Section 7. 

The ISD is a table of source language 
symbols (not subprogram references) , the 
attributes associated with those symbols, 
and the control section and relative loca- 
tion within control section assigned to 
each. The ISD information is used by the 
Program Control System (PCS) to relate the 
user symbols with the definitions in the 
OPM. A complete specification of the ISD 
format is given in Section 7. 



SUBPROGRAM CALLS IN OPM TEXT 

The text does not contain the machine 
instructions that actually perform the 
input/ output of data; nor does it contain 
the machine instructions to perform the 
more involved mathematical calculations 
such as those for finding the square root 
or the logarithm. The text also does not 
contain the machine instructions that actu- 
ally perform such services as handling 
sense lights, overflows, underflows, excep- 
tions, dumps, and the STOP, PAUSE, and CALL 
EXIT statements. The set of binary 
instructions produced by a compilation con- 
tains code for calls to library subprograms 
to perform these functions. 



Section 1: 



Introduct ion 



These subprograms are all permanently 
stored in SYSLIB, and consist of: 

• FORTRAN I/O library subprograms. FOR- 
TRAN I/O source statements (READ, 
WRITE, BACKSPACE, ENDFILE, REWIND, 
PRINT or PUNCH) cause the compiler to 
insert, in the object code, calls to 
the appropriate FORTRAN I/O Library 
subprograms . Other FORTRAN I/O subpro- 
grams are used to execute the CALL 
DUMP, CALL PEWMPr '^ALL EXIT, STOP and 
PAUSE statements. Note: There are 
several service subprograms (STOP, 
PAUSE, CALL DUMP, CALL PDUMP, CALL 
EXIT) in the FORTRAN I/O group which do 
not, strictly speaking, perform I/O, 
These subprograms, however, were 
included in the FORTRAN I/O group 
because they use the FORTRAN data con- 
version routines. These subprograms are 
described under "Service Subprograms" 

I ^^ FORTRAN IV Library Subprograms . 

» Ma-thematical Subprograms. These sub- 
programs are used for the more compli- 
cated mathematical procedures. They 
are used to perform the explicitly 
referenced functions Cfor example, the 
sine function in X=SINCY) as well as to 
do the more involved computations for 
mathematical statements which do not 
explicitly reference a function Cfor 
example, the exponentiation in the 
statement X=Y**I). See FORTRAN IV 
Library Subprograms for information on 
these subprograms. 

• The Service Subprograms that handle 
exceptions, pseudo-sense lights, over- 
flows, underflows, and divide checks. 
For information on these, see FORTRAN 
IV Library Subprograms . 



that might have been produced by the 
assembler. 

Phase 5 of the compiler either places this 
information in the list data set, which is 
stowed by LPC, or writes it on SYSOUT- 



COMPILER INTERFACES 

All interface with LPC and other exter- 
nal routines is in the Compiler Executive 

routine CExec) . 



INTERFACE WITH LPC 

The Compiler Executive routine may be 
called by LPC at either of two points and 
may itself call LPC at either of two points 
Csee Figure 1) . 

The two compiler entries are called INI- 
TIAL and CONTINUE. LPC calls the INITIAL 
entry to pass the user options to the com- 
piler and to initiate the first stage of 
the compilation (Phases 1 and 2). LPC 
calls CONTINUE to complete the compilation 
after the first stage is finished. The 
compiler return from CONTINUE informs LPC 
of the size of the OPM's elements, so that 
LPC can dispose of them. 

The compiler calls LPC at either of two 
places during the first stage C before the 
compiler returns to LPC from the INITIAL 
call). The first, GETLINE, is used to 
obtain a source line. The second, PUTDIAG, 
is used to pass a source error diagnostic 
message to LPC. PUTDIAG may also be used 
after the first stage. 



INTERFACE WITH VIRTUAL STORAGE ALLOCATION 



OBJECT PROGRAM DOCUMENTATION 

In accordance with user-specified or 
defaulted options, the compiler produces 
the following documentation: 

• A listing of the source program. 

• An object program storage map giving 
the storage layout of the object 

program. 

• A list of source program symbols and 
their storage equipments. 

« A cross-reference listing relating sym- 
bols and statement numbers to the 
source line numbers of the statements 

in which they were referenced or 
defined. 

• A listing of the object module in a 
representation very nearly in a form 



The compiler obtains virtual storage for 
the symbol table and other interphase files 
via GETMAIN; to release the storage, it 
uses FREEMAIN. CSee Appendix A for a 
description of the interphase files, 
including the symbol table. ) 



INTERFACE WITH DATA MANAGEMENT 

The compiler maintains the list data set 
by means of the virtual access method 
(VAM) . The compiler issues OPEN, SETL, 
PUT, and CLOSE macro instructions to pro- 
duce this data set. 



COMPILER/SERVICE ROUTINES INTERFACE 

The compiler "time- stamps" (includes the 

relative calendar time in) each object pro- 
gram module (OPM) control section that it 

produces. It also includes the date and 
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Figure 1. FORTRAN I¥ Compiler External References 



time as identification on each sheet of 
listing that it produces. To do this, the 
compiler calls two service routines: 
REDTIM and EBCDTIME. REDTIM returns the 
time (in milliseconds elapsed since March 
1, 1900), which is used to time-stamp the 
control sections and as input to EBCDTIME, 
which edits it into the EBCDIC representa- 
tion of time of day for inclusion in the 
listing. 



5. Provide compiler diagnostic 
information. 

6. Provide miscellaneous services. 

During a compilation, various tables and 
lists are constructed to contain the 
results of the operation of each phase and 
to serve as input to the next phase (see 
Figure 3) . 



QRGMIIZATION OF THE COMPILER 

The compiler has six major components: 
a multifunction compiler executive and five 
compiler phases. The major functions of 
each ccffliponent are summarized here; later 
sections describe each component in detail. 



COMPILER EXECUTIVE ROUTINE 

Compiler Executive (Exec) has six 
functions: 

1. Interface with the compiler's 
environment. 

2. Prepare the source statements for pro- 
cessing by Phase 1. 

3. Control and order the operation of the 
phases (see Figure 2). 

4. Prepare edited lines for output. 



PHASE 1 

Phase 1 performs the source program syn- 
tactic analysis, detection and diagnosis of 
errors, and translation of the source pro- 
gram into a multi tabular representation. 
Each identifier or constant is given an 
entry in the symbol table (format is sho%m 
in Appendix A) . Initial values from DATA 
and type statements, dimension information 
for arrays, NAMELIST information, and 
alphameric constants are stored in the pre- 
set data table (Appendix A> . Information 
concerning references to, and definitions 
of, symbols and statement numbers is stored 
in the cross reference table. Information 
collected from COMMON and EQUIVALENCE 
statements is stored in the storage speci- 
fication list. 

The roost significant processing, from 
the point of view of later optimization and 
code generation, concerns the treatment of 
executable statements, statement numbers, 
and arithmetic expressions. 
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Each executable statement and statement 
number is placed in the program representa- 
tion file (PRF) iirtiich, when scanned in the 
order it was formed, is a skeletal outline- 
representation of the source program. In 
addition to the fields that distinguish the 
items from each other, the PRF entries con- 
tain pointers to the appropriate expression 
representation file CERF) entries (see 
below) , to symbol table entries for 
variables, constants, and statement num- 
bers, and to other PRF entries as appropri- 
ate to the individual type of entry. 
Detailed formats of the PRF and ERF are in 
Appendix A. 
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sion representation fi 
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inal expression; each 
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placed in the e3q>res- 
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referred to as "right-hand Polish," or 
simply "Polish." See "CEKAI — Expression 
Processor CEXPR)," in Section 3. 

Each of the operator items includes 
information about its type and a code to 
indicate which opexation is represented. 
Each variable or constant item includes 
information about its type and a symbol 
table pointer. This pointer is the means 
of reaching the associated symbol table 
entry and serves to associate the item with 
other items representing the same variable 
or constant while distinguishing it from 
other items. 

The detailed description of Phase 1 is 
in Section 3. 



PHASE 2 

Phase 2 has five functions: 

:L. Make storage assignments in the OPM to 
all variables that are not formal 
arguments of a subprogram. 

2. Detect and diagnose illegal flow in DO 

nests . 

3. Indicate that the DO-loop index vari- 
able requires materialization (must be 
maintained in its storage cell) in a 
loop that contains an exit. 

4. Detect and diagnose references to 
undefined statement numbers (labels). 

5. Determine definition points (points at 
which a value may be changed) of COM- 
MON variables and subprogram 
arguments. 

COMMON variables are assigned storage in 
the order dictated by their appearance in 
the source program, in their appropriate 
COMMON blocks, and are given as much space 
as indicated by their individual DIMENSION/ 
type combinations. 

Non-COMMON variables that do not appear 
in EQUIVALENCE statements are assigned 
storage such that all scalars appear first, 
followed by all one- then two-dimensional 
arrays, etc. For any given dimensionality, 
variables of the same type appear together; 
those requiring less storage precede those 
requiring more. In this way, a maximum of 
address-constant sharing is obtained in the 
object program. 

The relative relationships of storage 
assignments of variables appearing in EQUI- 
VALENCE statements is determined, and these 
variables are assigned storage within the 
appropriate COMION block, or at the end of 
the non-COMMON group, as required. 
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Variables that do not appear in COMMON 
statements Mt appear in EQUIVALENCE state- 
ments in conjunction with COMMON variables 
are flagged as appearing in COMMON. 



After a storage assignment is made, its 
assignment CSLOC) within storage class 
CSTCL) is recorded in the symbol table. 
Non- COMMON variables are assigned storage 
class 6, blank COMMON storage class 9, and 
labeled COMMON storage class 10 to as high 
as 127 in the order of first appearance of 
the corresponding labeled blocks in the 
source program. 



In the OPM storage, classes 3 through 8 
will be accumulated by Phase 5 and become 
the module's PSECT in the object program. 
These classes include alphameric constants, 
address constants, NAMELISTs and parameter 
lists, non-COMMON variables, global Cunre- 
leasable) temporary storage, and local tem- 
porary storage, in that order. The COMMON 
blocks (storage classes greater than 8) 
become individual control sections in the 
OPM where the block name becomes the con- 
trol section name. Such control sections 
are combined with control sections of like 
name from other modules, before execution 
Cduring linkage editing or loading)*. 

Information concerning the remaining 

functions of Phase 2 is in Section *♦. 



In the statements 



A = B+C 

1 = A+B 
A = A*2 

Z = A+B 

X = B+C 



the occurrences of expression B+C in state- 
ments 1 and 5 are determined to be common 
because neither B nor c has an intervening 
definition. The expression identification 
corresponding to the plus operator will be 
changed from "operator" to "common expres- 
sion" CCSX) . A CSX has the properties of 
the original operator (e.g., here the plus 
operator code is retained) , with the addi- 
tional property that it represents a 
"named" expression. The CSX item contains 
a field reserved for the expression name 
(this name is actually a monotonically 
increased number), that is identical only 
for identical expressions. In statements 2 
and 4 above, the expression A-i-B is not a 
CSX because of the intervening definition 
of A in statement number 3. Both plus 
operators retain their "operator" identity; 
neither becomes a "named" expression. 

Consider the statements 

DO 1 I = 1, 10 

A = B+C 
Y = E+F 

1 F = A 



PHASE 3 

Phase 3 performs the global optimiza- 
tions to be done in the code generated by 

Phase ^ and establishes address coverage 

for all quantities referred to from 
storage. 

Phase 3 determines which arithmetic 
expressions can be computed only once and 
then saved for later uses. It also deter- 
mines the range of statements over which 
expressions are not redefined by the 
definition of one or more of their com- 
ponents. If the occurrence of an expres- 
sion in that range is contained in one or 
more DO loops which are also entirely con- 
tained in that range. Phase 3 determines 
the outermost such loop outside which such 
an expression may be computed, and moves 
the expression to the front of that DO 
loop. Only the evaluation process is 
removed from the loop? any statement number 
and/or store process is retained in its 
original position. The moved expression is 
linked to a place reserved for that purpose 
in the program- representation- file entries 
corresponding to the beginnings of DO 
loops. 



Because there are definitions of neither 
B nor C within the DO loop, the expression 
B+C is given a "name", and the named ex- 
pression is linked to the beginning of the 
DO statement, so that Phase 4 generates the 
expression once, outside the loop. The 
occurrence of the expression inside the 
loop is replaced by a "residue item" (see 
ERF description in Appendix A) that has the 
same "name" as the removed expression. 
Note that expression E+F is neither named 
nor removed because of the definition of F 
in statement 1. 

Phase 3 creates two new operators, both 
arising only from subscripts. The first is 
called a base/index split operator or "? 
operator"; its right operand is a residue 
(computed outside a DO loop), and its left 
operand is an expression that is local to 
the DO loop. Phase 4 places one quantity 
in a base register and the other in an 
index register when generating a storage 
reference to the subscripted quantity. 

The second operator is called the recur- 
sive operator or " ! operator" ; its right 
operand is the initial value of a subscript 
(induction variable dependent) constituent 
that is to be computed recursively over a 
DO loop, and its left operand is the "step 



expression", a quantity to be added to the 
recursive expression after each pass 
through the loop. (The induction variable 
is the variable referenced in the DO state- 
ment of the loop. In the DO statement 
shown above, I is the induction variable.) 

Phase 3 merges the ERF and PRF with some 
modification to form the PF (see Appendix 
A> . This file is the primary output of 
Phase 3. 

Detailed inforaia^on about the functions 
of Phase 3 is in Section 5. 



tailored to the various operators and ex- 
pression types? and service routines to 
maintain register storage, partial result 
storage, and CSX storage, to select and 
assign registers, to determine when 
operands are no longer needed, to assign 
and release temporary storage, etc. The 
detailed description of Phase <+ Cin Section 
6) indicates the relationships among these 
routines and provides a much more compre- 
hensive description of the operation of 
this phase. 



PHASE 4| 



PHASE 5 



Phase 4 performs the code generation 
function. Its input consists primarily of 
the PF and symbol table, and its output is 
the code file which represents, completed 
machine instructions and additional editing 
information . 

Phase ^ performs a scan of the PF. Pro- 
cessing is triggered by the various PF 
items and by the expressions they may 
reference- A set of tables is maintained 
that reflects the contents of the various 
general and floating registers at any time. 
When the generation of an expression is 
required, the register tables are searched, 
and if auny constituent operand of the ex- 
pression is in a register, it is generally 
used from that register, rather than from 
storage. Partial results are stored in 
temporary storage only when a register is 
needed for some other pirpose and there is 
no better choice of register than the one 
containing the partial result, or when the 
partial result is a CSX that has later uses 
and the operation about to be performed 
will change the value of the register con- 
taining the common expression. 

Phase 4 is a collection of PF entry pro- 
cessing routines, arithmetic generators 



Phase 5 collects the information from 
the various compiler-generated storage 
classes and forms a code/numeric-constant- 
sharable CSECT, a PSECT, and as many COMMON 
CSECTs as there are declared COMMON blocks. 
This information, and information (obtained 
from the Symbol Table) making up the 
optional ISD, constitutes the object pro- 
gram module. 

Optionally, Phase 5 also produces an 
assembler- like listing of the object pro- 
gram code obtained from the Code File, a 
storage map, and a cross reference listing 
indicating the various source-program iden- 
tifiers and the lines in which they were 
referenced or defined. The user's selec- 
tion of these options is passed from LPC to 
the Compiler Executive and thence through 
the INTERCOM table to Phase 5. 

Section 7 contains the detailed descrip- 
tion of Phase 5. 

Note: Routine descriptions in Sections 2 
through 7 occasionally refer to registers 
as "PI", "P2*, "PS", etc. Such register 
notations are taken directly from the list- 
ing, where they appear in EQU instructions 
and other instructions. 
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SECTION 2: EXECUTIVE 



INTRODUCTION 

The compiler executive (Exec) contains 
all routines in the compiler that either 
provide an interface between the compiler 
and the environment in which it resides or 
provide a service needed by more than one 
compiler phase (Chart Ah) • Functions per- 
formed by the Exec routines fall logically 
into the following categories: 

1. Service external interfaces. 

2. Prepare source statements. 

3« Control the compiler phases and intern- 
phase files. 

4. Process compiler edit lines. 

5. Provide compiler diagnostic informa- 
tion. 

6. Provide miscellaneous services. 

This discussion of the Exec is divided 
into seven sections: an initial section 
entitled "General Information," followed by 
sections dealing individually with the 

above six categories. 



GENERAL INFORMATION 

This section contains general informa- 
tion of value to understanding the computer 
executive. Topics discussed are: 

1. Macro instruction usage. 

2. Linkage conventions. 

3. Register notation and conventions. 
U, Storage map. 

5. Brief routine description. 

6. Use of the phase controller PSECT by 
other Exec routines. 

MACRO INSTRUCTION USAGE 

The Exec routines, like all compiler 
routines, make heavy use of macro instruc- 
tions: both "user" macro instructions 
Csuch as CALL, SAVE, RETURN ~ those 
described in A ssembler User Macro Instruc- 
tions ) and "system" macro instructions 
(those used only by the exec) . User macro 
instructions are not discussed here. The 



term macro instructions as used in this 
discussion means "system macro 
instruction. " 



Appendix C lists a brief suiranary of all 
exec macro instructions; the following 
paragraphs group them by function. 



1. Macro instructions concerned with the 
compiler diagnostics features: CEKTO, 
CEKTG, CEKV3 and CEKV5. 

2. Macro instructions written to provide 
module PSECTs and DSECTs: CEKU7 , 
CEKT8, and CEKT9 . 

3. The CEKVU macro instruction contains 
all VAM macros. 

t^. All uses of the GETMAIN and FREEMAIN 
macro instructions are contained in 
the macro instructions CEKVC and 
CEKV9, respectively. 

5. The macro instruction CEKVA issues the 
system macro instrijctions EBCDTIME and 
REDTIM. 

6. The CEKU9 macro instruction simplifies 
the processing associated with output 
of a message describing a source 
statement error detected by any Exec 
modules - 

7. The macro instructions CEKTX, CEKV7, 
and CEKV8 define all V-R con pairs and 
issue the CSECT and PSECT lines, for 
all Exec modules. 

Use of all other Exec macro instructions 
is obvious upon inspection of Appendix C 
and the assembly listings. 



LINKAGE CONVENTIONS 

All linkages by the compiler are Type I. 
CSee Appendix B, "TSS/360 Linkage Conven- 
tions"). The linking mechanism is either 
by means of the CALL, SAVE, and RETURN 
macro instructions or by the INVOKE, STORE, 
and RESUME macro instructions; there are no 
hand-coded linkages. All exec routines, 
linked to by other exec or compiler rou- 
tines through a CALL macro instruction, set 
return codes in general register 15 before 
returning. These codes are: 



Code I>escription 
Normal return. 

4 If a phase suspects a system error , 
it returns to the phase controller 
with a code of 4, No phase current- 
ly issues this return code. 

8 The "Compiler cannot continue — 

Aix>rt" code. Table overflow is the 
usual cause. The phase will return 
to the phase controller with a 
return code of 8, causing the phase 
controller to make a "FORTRAN cannot 
continue" return to LPC. 

16 A compiler restart is to be executed 
Csee comment below) . Programs 
called by the phase controller are 
to return with this code if , upon 
calling an exec subroutine t a code 
of 16 was returned by the 
subroutine. 

A return code of 12 is treated identi- 
cally to a code of 8. Return code of 16 is 
expected only during Phase 1 processing? in 
all other places it is treated as a code of 
8. A return code from a compiler module 
greater than 16 is never expected, is not 
tested for, and will produce unpredictable 
results. 



BRIEF ROUTINE DESCRIPTION 

The routines in the Executive are 
described briefly below. The description 
includes the documentation module name 
(five characters, in parentheses, with the 
letters CEKT as the first four characters) , 
preceded by the name generally used 
throughout the Executive documentation. 
The type of linkage to the routine is 
described, and a note is given describing 
conditions if the routine is an assembly 
module (is assembled separately from all 
other modules), as well as a documentation 
module. (A documentation module may or may 
not represent a separate assembly.) 



1. Phase Controller — PHC (CEKTA, docu- 
mentation and assembly module) . 

The Phase Controller is a Type I link- 
age subroutine and is the interface 
between the (LPC) and the five compil- 
er phases. All LPC calls enter PHC, 
and the phases may be called only by 
PHC. PHC initializes the work area 
and communication module as required 
for each phase, furnishing addresses 
of tables, pointers in these tables, 
etc. PHC prepares all parameters for 
return from the LPC to FORTRAN calls. 



REGISTER NOTATION AND CONVENTIONS 

The TSS/360 register notation standards 
Csee also Appendix B) describe a division 
of registers into parameter registers (PI 
through P6) , volatile registers (VI and 
V2) , nonvolatile registers CNl through N5), 
and linkage registers (LI through L3) . 
This standard is followed in all Exec 
modules, with the minor exception that 
absolute register notation is used where it 
should be made clear that other registers 
may not be used. Examples are registers 
and 1 in the ED instruction and registers 
loaded by the system macro instructions and 
macro processors. 

Use of all registers is summarized in 
the prologue contained at the beginning of 
each assembly listing. 

The CEKSZ macro instruction issues all 
EQUs for general and floating registers. 



STORAGE MAP 

Table 1 shows the approximate size of 
each control section in the Exec and the 
GETMAIN areas used for interphase files. 
The manner in which the compiler modules 
are link- edited will, of course, dictate 
the order in i^ich modules are loaded and 
the storage required. 



PHC does not call the LPC entries GET- 
LINE or PUTDIAG, nor does it operate 
on the list data set in any way. 
These operations are all performed by 
the master input/ output module (see 
below) . 

2. Get Next Source Statement — GNSS 
(CEKTC, dociimentation and assembly 

module) • 

This Type I linkage subroutine obtains 
complete source statements for Phase 1 
of the compiler. The source state- 
ments are composed of lines furnished 
GNSS by the LPC GETLINE entry. Facil- 
ity is included for conversational 
modification of statements already 
received. GNSS uses restricted link- 
ages internally. 

3. Process Terminal Modification — MOD 
(CEKTD, documentation and assembly 

module) . 

MOD is a Type I linkage subroutine 
whose purpose is to assist GNSS in the 
formation of source statements when 
conversational corrections have been 
made to the source statement. It 
accomplishes this by analyzing the 
relation between the line number of a 
line to be corrected Cor inserted) and 
the line numbers of statements already 
received by the compiler. 
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Table 1. Executive Storage Map 
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♦ These areas are obtained using GETMAIN. 
*♦ See Table 4 for the allocation of Work Area C for the Output Module. 



Receive Diagnostic Message ~ RDM 
(CEKTE, documentation and assembly 
module) . 

Any module in the compiler (including 
Exec modules) that adds a diagnostic 

message to the user's output does so 
through RDM. The message may go to 
the list data set, the conversational 
console, or both. The LPC entry PUT- 

DIAG is used for console messages. 

Constant Filers — CONFIL (CEKTF, 
documentation and assembly module) . 

Several of the compiler phases must 
add information concerning numeric, 
address, and label constants to the 
symbol table. The filing of these 

constants is performed for the phases 
by CONFIL, through a Type I linkage. 

CONFIIf also includes an entry which 



creates numbers used to mark points in 
the code for the phases and then files 
these numbers as label constants. 



6. Master Input/Output — MIO (CEKTH, 
documentation and assembly module). 



All input/output operations are con- 
trolled by MIO. These operations 
include: 

a. Calling GETUNE for source lines 

b. Calling PUTDIAG for diagnostic 
message output to the conversa- 
tional console 

c. Opening, closing, and adding 
source and diagnostic messages to 
the list data set 



10 



MIO contains six Type I linkage 
entries and uses restricted linkages 
internally. 



7. Analyze Console Soorce Line — ANALYZ 
(CEKTI, documentation module). 

This restricted linkage subroutine is 
invoked by GNSS to determine where the 
statement number and first text 
character are in a console line, and 
how many text characters are included 
in the line. ANAI.YZ is assembled into 
GNSS. 

8. Inspect a Console Character — INSCON 
CCEKTJ, documentation module). 

This restricted linkage subroutine is 
invoked by ANALYZ to determine if a 
console character is a tab, numeric, 
blank, or other character. INSCON is 
assembled into GNSS. 

9. Move a Line to the List Data Set — 
LDMOVE CCEKTK, doctimentation module) . 

LDMDVE is a restricted linkage subrou- 
tine, invoked by MIO to move a line 
from a buffer to the list data set. 
LDMOVE counts lines in the current 
page and, when required, restores the 
page and adds a page heading. LDMOVE 
is assembled into MIO. 

10. Build the List Data Set Buffer — 
BUILD CCEKTL, documentation module) . 

BUILD is a restricted linkage subrou- 
tine, invoked by MIO to move a line to 
either a list data set buffer or the 
list data set. The buffer will be 
emptied when its capacity is exceeded, 
or when information contained will not 
be replaced due to conversational 
corrections. BUILD is assembled into 
MIO. 

11. Flush the List Data Set Buffer — 
FUUSH (CEKTM, documentation module) . 

This restricted linkage subroutine is 
invoked by MIO, to move all lines in a 
list data set buffer to the list data 
set. FLUSH is also invoked by GNSS, 
through the BFLUSH entry to MIO. 
FLUSH is assembled into MIO. 

12. Compiler Dump — COMDUMP CCEKTQ, docu- 
mentation and assembly module) . 

This Type I linkage module is called 
by the Phase Controller when a file is 
to be dumped in hexadecimal. Such 
dumps are produced only when the com- 
piler is in the diagnostic mode. 



13. Dump Line Preparation and Output — 
LINDUMP CCEKTS, documentation and 
assembly module) . 

LINDUMP is called in diagnostic-mode 
processing only, using a Type I link- 
age. LINDUMP prepares one line of 
information and adds it to the list 
data set. 



USE OF THE PHASE CONTROLLER PSECT (EXCOM) 
BY OTHER EXEC ROUTINES 

The first two pages of the Phase Con- 
troller PSECT contain information required 
by other routines in the Exec. A defini- 
tion of this PSECT is supplied to all Exec 
routines by including a DSECT for the Phase 
Controller PSECT. Cover for this DSECT is 
obtained by loading the address of the 
Phase Controller PSECT from a word in 
intercom (Exec modules are always passed 
the location of intercom when called) . The 
term • excom' CExec communication region) is 
used by Exec routines to refer to the Phase 
Controller's PSECT. 



SERVICE EXTERNAL INTERFACE 

The compiler's external interfaces are: 

1. Entrances from Language Processor Con- 
trol (LPC) 

2. Calls on LPC to get a source line or 
produce a diagnostic line 

3. Macro instructions to get and free 
main storage 

4. Macro instructions to operate on a VAM 

data set 

5. Macro instructions to obtain the time 
at which the compilation is beginning 

Figure i* shows the above interfaces. 
For each interface, the Exec routine 
involved is identified. Note that all 
calls on LPC are centralized in the Master 
Input/Output (MIO) routine as are all calls 
on VAM (except one, the call by LINDUMP, 
which is issued only if the compiler is in 
the diagnostic mode, as discussed in the 
section "Compiler Diagnostic Information*) . 

Routines concerned with external inter- 
faces are: 

1. Phase Controller (PHC,CEKTA). 

2. Master Input /Out put (MIO,CEKTH). 

3. Dump Line Preparation and Output 
(LINDUMP, CEKTS) . 
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Figure ^ . Compiler Interfaces 



Details concerning activities of the 
ExecuLtiife routines that use and prepare 
information passed across the interfaces 
are given under "Routine Descriptions," in 
this section. 



compilation continued. Two routines par- 
ticipate in the preparation of source state 
ments: Get Next Source Statement (GNSS, 
CEKTC) and Process Terminal Modification 
Lines CMOD,CEKTD>. These routines have no 
other functions. 



SOURCE STATEMENT PREPhRATlOB 

The purpose of the routines described in 
this section is to prepare complete FORTRAN 
source statements for processing by Phase 1 
of the compiler. This preparation is 
accomplished by obtaining lines through the 
services of the LPC entry GETLINE, combin- 
ing these lines as appropriate (continua- 
tion lines may exist), and informing Phase 
1 of the location of a complete source 
statement, and the statement label (if 
any) • If the compiler is in conversational 
mode, the terminal user may request that 
changes be made to a line (or lines) pre- 
viously sent to the compiler • In such an 
event, the Process Terminal Modifications 
routine (MOD) determines if the correction 
was such that the entire program must be 
recompiled, or if the preceding or current 
statement is to be ignored or modified and 



Figure 5 illustrates the general rela- 
tionship between the source- statement - 
preparation routines and other routines in 
the compiler. 



PHASE AND INTERPHASE FI L E CONTROLLER; THE 
COMPILER WORK AREAS AND INTERCOM 

The Phase Controller CPHC, CEKTA) per- 
forms the functions of calling the five 
compiler phases. Associated with each call 
on a phase are a number of miscellaneous 
operations concerning the files used by the 
phases as their medium of information 
exchange; these operations are also per- 
formed by PHC. The phase control operation 
is a simple one and consists principally of 
calling each phase in its turn, checking 
the return code to see if the following 
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Enter I 



Compiler 
Phase I 



GNSS 



I Reauesf for a 
Single Line 



Request for a 
Single Line 



n 



i 



LINEIN 

(CEKTHC) 
Entry to 
MIO 



J 



GETLINE 

( CFADBf ) 
Entry to LPC 




Yes 



MOD 



No 



Figure 5. 



Source- Statement- Preparation 
Modules 



phase should be called, and returning pa- 
rameters to LPC following the calls on 
Phases 2 and 5. 

Figure 6 summarizes the order and condi- 
tions of calls on the phases and shows the 
GETMAIN and FREEB1AIN activities. In Figure 
6 and in other figures below the abbrevia- 
tions for interphase files are used. These 
abbreviations are: 



ISD Internal symbol dictionary 

0PM Output module (text) 

PF Program, file 

PMD Program module dictionary 

PRF Program representation file 

SPL Storage specification list 

Work areas See below 

Note that all file descriptions given 
below are for the purpose of summarizing 
the obtaining, use, and freeing of storage. 
For detaile - descriptions of the contents 

of all file,,, see Appendix A. 

The term "work area" is used to refer to 
an area in virtual storage that is logical- 
ly reused; that is, one phase uses the 
area, and PHC then makes an area of the 
same size available to the next phase, etc. 
Tables in this work area are cleared out 
when they are no longer needed. The number 
of pages obtained for each work area is 
determined by a constant assembled into the 
PHC PSECT; this number was also given in 
the storage map description. 

Tables 2, 3, and 4 give miscellaneous 
information concerning the three work 
areas. Figure 7 shows the symbol table 
storage layout. 

Probably the most important interphase 
file in the compiler is the file referred 
to as intercom. A detailed description of 
the contents of intercom is given in Appen- 
dix A; general information on use of this 
area follows. The intercom area contains 
512 bytes. All information required by the 
Executive and any phase, or to be passed 
between phases (excluding large lists, 
files, etc.), is passed by means of the 
intercom area. Intercom is not obtained by 
a GETMAIN, but is assembled into the phase 
controller PSECT. The sequence of intercom 
use is as follows: 

1. The phase controller initializes 
intercom as required before each call 
on a phase and makes the location of 
intercom known to the phase via the 
calling sequence. 

2. The phases move the 512 bytes to 
intercom from the phase controller to 
an area within the phase. The phases 
modify this area during their opera- 
tion. If a phase calls an executive 
routine, it furnishes the executive 
routine with the location (in the 
phase) of intercom, so that intercom 
may be updated by the executive rou- 
tine called. 



CF Code file 

CRL Cross reference list 

EF(or ERF) Expression (representation) 
file 

ENL External name list 



Before returning to the phase con- 
troller, the phase moves the up-to- 
date intercom from the area within the 
phase back to its original area in the 
phase controller. 
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Figure 6, Summary of Phase and Interphase File Control Activities 
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Table 2. Work Area A Storage Layout 



Table 



Nome 



!,3 
TABLO 



Pnose ) 



Phase 2 ! Phase 3 



Phase 4 



Phase 5 



EF 
( Base ana 
2-byte top i 

Intercom ) 



EF 



TBAHI 



( Base ana 
2-byte top in 
Intercom ) ' 

PRF 



( Not L-sed 
by Phase 2) 

PRF 



CF 

Bcae, Top 

and Upper 
Limit in 
Intercom ) 



CF 
IP 



PRF 



NOTES: 

1 . TBALO is the CF Base and the initial CF Top. See Intercom TECFB, TECFT. 

2. TBAHi is the CF Upper Limit. See Intercom TECFU. 

3. Direction of increasing addresses is from the top to the bottom of the table. 

4. The EF and PRF bmes ore identical, and are located approximately midway 
between TBALO and TBAHI . See Intercom TEEFB, TEPtFT, TEEFT, TEPRFT. 

5. The address of the first word filed in the PRF is in TEWAAH in Intercom. 

6. The EF is also referred to as. the ERF. 



Table 3. Work Area B Storage Layout 



Name 


Phase 1 


Phase 2 


Phase 3 


Phase 4 


Phase 5 


TBBLO 


Storage 


Storage 


i 


i 


PF 


External 




Specification 


Specification 










Name List 




List (Base, 


List 










(Base and Top 




Top and 












in Intercom) 




Limit in 
















TBBM^ 


Intercom) 
















TBBm2 










PF 
(Base end 
2-byte Top 






PMD 

(Base and 
Top in 


TBBM'^ 










and Upper 






Intercom) 










Limit 3,9 





















In Intercom) 









TBBM^ 






OPM 












i 






(Base and 












I 






Top in 


TBBM5 










, 


: 


- — 




Intercom) 


TBBM6 






ISD 


















(Base and 


TBBHI 
















Top in 
Intercom) 








] 




1 


+ 





NOTES: 

L TBBLO is the SPL and PMD Base. It is also the initial SPL and PMD Top. 

See Intercom TESPLi, TEPMDB, TESPLT. 

TBBHf is the SPL and ISD Upper Limit. See Intercom TESPLU. 

Computed by PHC. 

If required, PHC will GETMAIN rather than use Work Area B. 

Must Start on a Page Boundary. 

Not needed if no ISD Is requested by the problem programmer. 

Direction of increasing addresses is from the top to the bottom of the table 

The allocation of Work Area 8 to the four Phase 5 Areas is: 

PMD — 12 pages ENL — 2 pages 

OPM — 80 pages ISD — 20 pages 

The PF fop is initially set to TBBLO. The PF upper limit is TBBHI. 
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Work Area C Storage Layout 



Name 


Phase 1 


Phase 2 


Phases 


Phase 4 


Phase 5 


^.^, ^ ',5 


Preset Data 


Preset Data 


Preset Data 


Preset Data 


Preset Data 


TBCLO ' 


(Base and 


( Not Used ) 


(Not Used) 


( Not Used ) 


' 




Top in 


















Intercom) 
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Ad cons 
(Base and 
Top in 2 
Intercom) 
















TBCM^ 






f 






4 


(Base and 4 


\ 


i 


4 


4 


TBCM 


Top in 1 
















Intercom) 


1 
















Cross- 


(Not Used) 


(Not Used) 


(Not Used) 








Reference 














List^'6 


CRL 


CRL 


CRL 


CRL 


T8CHI 













NOTES: 
1 



2. 
3. 



TBCLO IS the Preset Data Base and (initially) Top. See Intercom 

TEPSDB, TEPSDT. 

TBCHl is the CRL Base and (initially) Top. See Intercom TECRLB, TECRLT. 

The Formal Argument Adcon Base and Top are set by PHC prior to entering 

Phase 3. See Intercom TEFAAB, TEFAAT . 

This area is not required if the cross-reference- list option is not chosen 

by the problem programmer. 

Direction of increasing addresses is from the top to the bottom of the table. 

Must stort on a double-word boundary. 



Symbolic Name 



TBS IF 



T8SLO 



Description 



Symbol Tables entries for the 49 
Intrinsic Functions (assembled in) 



Symbol Table Low -- first item 
filled will have the first word of 
its descriptive part put here 



Descriptive Part Entries, next avail- 
able word referenced with TEDES T" 



I ID, FLAGS, ETC 



iSLOC, STCL 



VALUE 



LINK, DPP 



Nome Port entries, Imt used word 
referenced with TENAMT^ 



TBSHI 



Direction of : | 


Increos- 

ing 

Add resses 


Descriptive 
Part 
Filing 


Name 
Part 
Filing 


f 


t 


1 





Symbol Table High — first item 
filed will have the first word of its 
name port put here 



1 The address of the first "ID, FLAGS, ETC" word filed is in TEDESB in Intercom. 

2 The address of the first "LINK^/DPP" word filed is in TENAMB in Intercom. 

Figure 7. Symbol Table Storage Layout 
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Compiler 
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a Source ! 
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Figure 8 . Process Compiler Edit Line Function 
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COMP I LER EDIT LINES 

The compiler produces two types of out- 
put: edited lines, to be transmitted to 
the terminal, list data set, or both; and 
the object module, constituting the com- 
piled program ready for loading and execu- 
tion, output of the first type is prepared 
in the following places in the compiler: 
RDM (diagnostic messages from phases) , PHC 
(heading lines and warning diagnostics 
associated with diagnostic mode process- 
ing), GNSS (SOURCE' rines and associated 
diagnostic messages), CONFIL (file overflow 
diagnostics), and OLR (Phase 5 edit lines). 
Figure B, "Process Compiler Edit Line Func- 
tion" describes the path of compiler edit 
lines in more detail. Output of the second 
type is prepared completely by the compiler 
Phase 5 and is passed to LPC at the phase 
controller's return to the LPC continue 
call. Preparation of this output is 
described in Section 7 "Phase 5"? the man- 
ner of returning the information to LPC was 
described earlier in "Phase and Interphase 
File Controller." 

The use of the MIO buffers deserves spe- 
cial mention. If the compilation is con- 
versational, the phase controller (using 
GETMAIN) obtains two pages for the MIO 
buffers. These buffers will contain the 
source lines in the source statement cur- 
rently being fonaed by GNSS and in the 
statement previously passed to Phase 1, but 
not yet committed to ccxapilation. When a 
statement is committed to compilation, the 
associated source lines are added to the 
user's listing (if any). Following return 
from Phase 1 to the phase controller, these 
two pages are released. 



entered. If the user attempts to do so the 
message "DIAGNOSTIC MODE NOT ALLOWED AS NO 
EDIT OPTIONS SELECTED" will be printed at 
the terminal. 



It is also possible to alter the size of 
the main storage obtained prior to compila- 
tion, in order to measure the effect of 
large, unused pages of virtual storage, and 
to exercise the file-overflow tests of the 
compiler. These features are all contained 
within macros in the Exec routines and, 
thus, may be removed from the compiler by 
modification of these macro instructions. 
(See the General Information section for a 
description of all macros.) The diagnostic 
features do not affect the reenterable 
characteristic of the compiler. It is 
nearly impossible for a user to inadver- 
tently request diagnostic output from the 
compiler, as information not normally 
available to the user must be known to pro- 
duce such output. If the diagnostic mode 
is entered, the warning message "COMPILER 
IS IN THE DIAGNOSTIC MODE" will be produced 
at the terminal (if in conversation) and on 
the list data set. Figure 9 describes the 
diagnostic features. 

The procedure for requesting diagnostic 
information is: 

1. Load the Phase Controller (PHC) , and a 
new PSECT for PHC, with the PCS 
statement: 



M)AD 



CEKTAR 



Set the PHC FSECT byte TEDIAG to '¥• 
(diagnostic mode allowed) with the PCS 
statement: 



COMPILER DIAGNOSTIC INFORMATION 

The compiler contains built-in facili- 
ties for diagnosing compilation probl^ns. 
These facilities consist principally of the 
ability to request hexadecimal dumps of 
interphase files and phase PSECTs following 
return from each phase. These dumps may 
not be directed to the terminal? they are 
issued to the list data set by use of a POT 
macro. If the user has requested no edit 
options, there will be no list data set. 
In this case the diagnostic mode may not be 



SET 



CEKTAR. (X'llCS") = 'Y* 



The first source line supplied to the 
compiler must be: 



Col. 


Col. 


Col. 


1-6 


7 


17 - end 


(blank) 


DIAGNOSTIC 


Anything 



The two lines following the DIAGNOSTIC 
line contain dump and other request 
information. The content of the second 
and third lines is described below. 
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Diagnostic Line 2; 



I Column I Name ^ | 



Description 



1 
2 
3 

5 
10 

31-40 



ill-50 
51-60 
61-70 
71-80 



TDPEAZ 


CD 


TDPHAZ 


C2> 


TDPHAX 


C3) 


TDPHAZ 


C4) 


TDPHAZ 


C5) 


TDLOG 





TDBOGl 



If 0, compilation will terminate prior to calling Phase 1.^ 

If 0, compilation will terminate prior to calling Phase 2,^ 

If 0, compilation will terminate prior to calling Phase 3.^ 

If 0, compilation will terminate prior to calling Phase 4.^ 

If 0, compilation will terminate prior to calling Phase 5.^ 

If Y, a message will be written when each phase is called, and when 
return is made from each phase • 

Requests file edits upon return from a Phase, as follows (the numbers 
1 through 10 correspond to columns 31-40 for Phase 1, 41-50 for Phase 
2, etc). 

No, Description 

1 If Y, edit Intercom; edit the EF and PRF, after Phases 1 
through 3; the CF after Phase 4 and 5. 

2 If Y, edit the Symbol Table. 

3 If Y, edit Storage Class Table. 

4 If Y, edit the phase^s PSECT and the contents of the internal 
file used by the phase (Phase 5 does not use this file) . 

If blank or produce no PSECTT edit. If X, edit the 

C3 pages) PHC PSM:T. 

5 Edit the SPL and PF in Phases 1 through 4, the PMD, 0PM, ENL 

and ISD if in Phase 5. 

6 Edit the Preset Data, Formal Argument Adcons, and the Cross 
Reference List. 

7 If Y, do not give file edits for RC = return from each phase 
(will only give edits if RC*0 or an unexpected interruption 

occurs) . 

8-10 Not used. 

Same as 31-40, but inspected after return from Phase 2. 

Same as 31-40, but inspected after return from Phase 3. 

Same as 31-40, but inspected after return from Phase 4. 

Same as 31-40, but inspected after return from Phase 5- 



1, Label of field in PHC PSECT in %^ich the value punch in the corresponding columns 

is stored. 

2. If the column is blank or any character other than (zero) , compilation will not 

be terminated. 
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Diagnostic Line 3: Allows the user to al- 
ter the number of .lines to be obtained by 
PHC in its GETMAINs. The relation between 
columns in line 3 and the files for which 
main storage is obtained is given Delow. 
If the four columns associated with a file 
are blank, the number of pages obtained 
will be the number assembled into the PHC 
PSECT. 

J.- ^ ^ . .^. , — ^ 



Enre 





PHC PSEC'34 








Column 


Name 


1 




File 


— 1 




-+- 







, ^— 


15-18 


TDAPAG 




Pages 


m 


Work Area A 


19-22 


TDBPAG 




Pages 


in 


^ork Area B 


23-26 


TDCPAG 




Pages 


in 


^ork Area C 


27-30 


TDPPAG 




Pages 


in 


PMD 


31-34 


TDOPAG 




Pages 


in 


0PM 


35-38 


TDEPAG 




Pages 


in 


ENL 


39-42 


TDIPAG 




Pages 


in 


ISD 


43-46 


TDMIOP 




Pages 


in 


MIO Buffers 


47-50 


TDSYMP 




Pages 


in 


Symbol Table 



L . X ^ Jl -. ^ J 

Note that, following the processing of 
the three diagnostic information lines, the 
source lines are read as in a normal 
compilation. 

Figure 10 summarizes the determination 
of diagnostic mode and the initialization 
performed if in this mode- Figure 11 siam- 
marizes the processing performed at each 
phase call. Figure 12 shows compiler 
action if in the diagnostic mode and an 
unexpected interruption occurs. 



MISCELLANEOUS 

The miscellaneous modules are those used 
by any routine in the compiler that causes 
a diagnostic message to be added to the 
user's terminal and/or listing output, and 
files information concerning a numeric, 
label, or address constant in the symbol 
table. 

The Receive Diagnostic Message (RDM, 
CEKTE) routine is passed information 
describing a diagnostic message to be pro- 
duced. RDM will send this message to the 
terminal if the user is in conversational 
mode and will add the message to the user's 
listing if he has requested any list out- 
put. Figure 8 shows the general relation- 
ship between RDM and other modules in the 
compiler. 
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Figure 9. Compiler Diagnostic Features 
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ROUTINE DESCRIPTIONS 
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Exit 



i Issue Macros Such 

1 thot Interrupts 

': will Send Control 

I to IA800 



Set TDBUGA to 
I . Note Now 
m Diagnostic 
Mode . 



RDM 



Output "In 
Diagnostic Mode" 
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Move Columns " 
from This Line to 
the PHC PSECT 



Read and Edit 
Diagnostic 

Line 2 



Check Fields of 4 
Columns Each Be- 
ginning in Col . 15. 
if the Fields Are 
Non-Blank, Con- 
vert Them to Binary 
and Move to the 
PHC PSECT. 



Exec routines bear mnemonic titles as 
well as coded labels. The 5 -character 
coded labels begin with the letters CEKT; 
the fifth letter identifies a specific 
module. Various entry points to a routine 
are identified by a sixth letter added to 
the coded label; for example, the coded 
label for the Master Input/Output routine 
is CEKTH, and there are entry points CEK- 
THA, CEKTHB, etc. 

There are no hardware configuration 
requirements for any of the Exec routines. 
All these routines are reenterable, nonres- 
ident, nonprivileged, and closed. 



CEKTA — Phase Controller CPHC) 

The Phase Controller is the interface 
between the outside world and the compiler 
phases. It receives the LPC to FORTRAN 
initial, continue, and early-end calls, 
prepares for the compiling run, calls the 
phases as subroutines, and returns to LPC 
when compilation is terminated (successful- 
ly or unsuccessfully) . See Chart AB. 



ENTRIES ; The Phase Controller has three 
external entry points: 

LPC to FORTRAN Initial 
(ENTRY name is CEKTAA) 



Register 1 contains the address of the 
parameter list. 

Register 13 contains the address of 
the LPC save area to be used by 
FORTRAN. 

Register 14 contains the return 
address. 

Register 15 contains the V-type Adcon 
for the FORTRAN initial entry initial- 
ization routine (i.e., the entry point 
address) . 



Figure 10. Testing for Diagnostic Input 
and Processing Diagnostic 
Information Lines 



The Constant Filers (CONFIL, CEKTF) rou- 
tine is called when information concerning 

a constant is to be filed in the symbol 
table for use by a later compiler phase. 



[Symbol] CALL FORTRAN initial entry-symbol 

(15) 

[, (module name - addr, 
batch/conversational 
indicator - addr, F option 
table - addr, 
list data set 
DCB - addr)] 
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Figure 11. Processing Diagnostic Information Following Return From Each Phase 
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Figure 12 . 



Processing of Unexpected Inter- 
ruptions During Compilation 



LPC to FORTRAN Continue 
(ENTRY name is CEKTAB) 

[Symbol] CALL FORTRAN continue entry - 
symbol 

(15) 

[f (list data set exists 
indicator - addr, 
length of PMD - addr, PMD - 
addr, length of TXT - addr, 
TXT - addr, length of ISD - 
addr, ISD - addr, external 
name list - addr)] 



FORTRAN Continue Entry 

Entry point name for FORTRAN continue 
entry. 



List Data Set Exists Indicator 

Specifies the address of a 1-byte 
field which will contain 00000000 (for 
no list exists) or 00000001 (for list 
exists) when FORTRAN returns to LPC 
normally . 



FORTRAN Initial Entry 

Entry point name for FORTRAN initial 
entry. 



List Data Set Name 

Specifies the address of the module 

nan«« 



Batch/Conversational Indicator 

specifies the address of a 1-byte 
field which contains 00000000 (for 
batch) or 00000001 (for conversa- 
tional) « 



F Option Table 

Specifies the address of an 8-byte 
option table, where each byte may be 
Y, N, or other. The default chosen by 
FORTRAN is sho%#n in parentheses: 



byte 1 ISD option (produce) (N) 

byte 2 source listing option CY) 

byte 3 object listing option (N) 

byte h cross reference listing 
option CN) 

byte 5 symbol table edit option (N) 

byte 6 storage map option (N) 

byte 7 BCD option CN) 

byte 8 public CSECT attribute CN) 

byte 9 List Data Set option CN) 

List Data Set DCB 

Specifies the address of the data con- 
trol block for the list data set. 



Length of PMD 

Specifies the address of a pointer to 
a 1-word field that contains a binary 
number when FORTRAN returns to LPC 
normally. This will be a count of the 
number of bytes in the PMD which FOR- 
TRAN is giving to LPC. 



PMD 

Specifies the address of a pointer to 
the area which will contain the PMD 
when FORTRAN returns to laPC normally. 

Length of TXT 

Specifies the address of a pointer to 
a 1-word field that will contain a 
binary number when FORTRAN returns to 
LPC normally. This will be a count of 
the number of bytes in the TXT which 
FORTRAN is passing to LPC. 

TXT 

Specifies the address of a pointer to 
the area which will contain the TXT 
when FORTRAN returns to LPC normally. 

Length of ISD 

Specifies the address of a pointer to 
a 1-word field that will contain a 
binary number when FORTRAN returns to 
LPC normally. This will be a count of 
the number of bytes in the TXT which 
FORTRAN is passing to LPC. 



ISD 



Specifies the address of a pointer to 
the area which will contain the ISD 
when FORTRAN returns to LPC normally. 
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External Name List 

Specifies the address of a pointer to 
the area which contains the external 
name list when FORTRAN returns to LPC 
normally, (Each external name in the 
list is an 8-byte field- ) 



LPC to FO RTRAN Early End Call 
(ENTRY name is CEKTAC) 

Register 1 contains the address of the 
parameter list, if any. 

Register 13 contains the address of the LPC 
save area to be used by FORTRAN, 

Register 14 contains the return address. 

Register 15 contains the V-type Adcon for 
FORTRAN early end (i.e., the entry point 
address) . 

[Symbol! CALL FORTRAN early-end 
entry- symbol 
(15) 

C , (list exists indicator - 
addr) ] 

FORTRAN Early-End Entry 

Entry point name for FORTRAN early- end 
entry. 

List Exists Indicator 

Specifies the address of a 1-byte 
field which will contain 00000000 (for 
no list exists) or 00000001 (for list 
exists) when FORTRAN returns to LPC 
normally. 

ROUTINES CALLED : The phase controller 
calls the five compiler phases, MIO, and 
CONFIL. 

The calling sequence from the phase con- 
troller to these programs is a standard 
call with the address within PHC of the 
intercom area in the parameter list. 

EXITS ; The phase controller has three 
exits which correspond to the three 
entries. 

Return Linkage to L PC from FORTRAN Initial 

[Symbol] RETURN 

Upon return from FORTRMI initial, 
register 15 contains a code which LPC 
interprets as follows: 

Code Type of Return 

Normal . LPC will query user 

before continuing if in conver- 
sational mode. LPC will call 
FORTRAN continue if in noncon- 
versational mode. 



4 FORTRAN cannot continue. LPC 
will query user, if in conver- 
sational mode, but will not 
allow him to continue unless he 
first modifies the source data 
set. LPC will call FORTRAN'S 
early- end routine in both con- 
versational and nonconversa- 
tional modes. 

8 Abnormal end LPC will not query 
user and will not call FORTRAN 
again. FORTRAN never issues 
this return. 

Return Linkage to LPC from FORTRAN Continue 

[Symbol] RETURN 

Upon this return, register 15 contains a 
code which LPC interprets as follows: 



Code 





Type of Return 
No errors 



12 



16 



Paramet er 
Information 
Filled In 
List exists 

indicator 
Length of 

PMD 
PMD-length 

of TXT 
TXT- length 

of ISD 
IS D- exter- 
nal name 

list 
Same as for 

code = 



Same as for 
code = 

List exists 
indicator 

Indetermi- 
nate 



Minor errors (chance 
of a correct source 
program still quite 
high) 

Major errors (all or 
parts of source state- 
ments were omitted) 
No object module (prob- 
ably table overflow 
within the compiler) 
Any highly abnormal 
condition -- partial 
object module may have 
been produced. FORTRAN 
never issues this 
return. 



Return Linkage to LPC from FORTRAN 
Early- End 

[Symbol] RETURN 

Upon return from FORTRAN'S early- end 
routine, register 15 contains a code which 
is interpreted by LPC as follows: 



Code Type of Return 
Normal 

4 A normal condition 



Parameter 
Information 
Filled In 
List exists 

indicator 
Indetermi- 
nate 
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OPERATION ; At the initial call, the Phase 
Controller fetches the compiler parameters 
from the LPC parameter list, obtains 
storage for the work areas using GETMAIN, 
and initializes the excom and intercom 
regions of the Phase Controller's PSECT- 
(The information furnished by LPC is 
described above under "entries." Items 
initialized in excom and intercom are 
described in the description of these 
regions.) The items initialized include 
compiler options; oaodule, main entry point, 
and deck identification names? list data 
set items (this and all interfacing between 
Exec and Data Management is performed by 
the Master Input/Output module MIO) ; and 
various flags, switches, and pointers. 



Next, initialization for other executive 
modules and Phase 1 is done. This is also 
the point at which control may be retiirned 
by Exec if conversational corrections to 
the source program were extensive enough to 
require a restart of compilation. After 
initialization. Phase 1 is called. 



At return to the continue call, the return 
parameter may specify: 

1. No errors in the source program. 

2. Minor errors. 

3. Major errors (source lines probably 
truncated or omitted) . 

^. Table overflow. 

5. An abnormal condition - 

The early- end entry to the Phase Con- 
troller may be reached from LPC if the com- 
pilation cannot continue or if the user 
does not want to continue. Reasons for 
inability of the compiler to continue 
include: 

1. Source errors so serious that follow- 
ing phases cannot reasonably operate. 

2. Storage overflow in a compiler table. 

3. An abnormal condition. 



Following appropriate initialization. 
Phase 2 is called, followed by the return 
to LPC from FORTRAN Initial. LPC now 
enters the Phase Controller at the FORTRAN- 
continue entry if the user continues. If 
the program is a BLOCK DATA program. Phase 
5 is entered. Otherwise, Phases 3 and 4 
are successively initialized and entered. 

Phase 5 is then called, produces its 
output Cusing MIO's OLR subroutine for list 

data set lines) , and returns to the Phase 

Controller. 

Following terminal processing, such as 
data set closing, preparing return parame- 
ters for LPC, and freeing main storage, the 

compilation is ended by a return to LPC. 

Return parameters to LPC were described 
under "Exits." These parameters are pre- 
pared prior to returning to the initial 
call and the continue call. At return to 
the initial call, the parameter may 
specify: 

1. Normal return. This return will be 
made even if serious program errors 
occurred; terminal users will, of 
course, have been advised of any such 

errors. 

2. FORTRAN wants to abort the compilation 
due to table overflow or some other 
condition that makes continuing the 
compilation inadvisable without modi- 
fying the source program. 

3. An abnormal condition — FORTRAN may 

not be called again. 



In all these cases, appropriate error mes- 
sages are given. Terminal processing, such 
as closing data sets and freeing main 
storage, is then performed and return is 
made to LPC. 

CEKTC — Get Next Source Statement (GNSS) 

GNSS obtains a source statement from the 
input data set, using the services of LPC, 
and presents it to Phase 1 for processing. 
Modifications to lines already received are 
taken into account in determining what 
source statement is fetched. See Chart AC. 

RESTRICTIONS ; Several assumptions underlie 
the processing done by GNSS: A line in 
card form is assumed to be in the tradi- 
tional FORTRAN format; a C in column 1 
means a comment; a nonblank or nonzero 
character in column 6 means a continuation; 
the statement number is in columns 1-5; and 
the body of the line is in coliamns 7-72. 
Columns 73-80 may contain card identifica- 
tion, etc. , and will be contained in the 
source deck edit on the list data set. 

The required format for keyboard input 
is described in the documentation of the 
ANALYZ subroutine (module CEKTI) , given 
later in this chapter. 

An END statement is a line whose body 
consists only of the letters E, N, and 0. 
Embedded blanks are allowed. A line meet- 
ing this description that is in fact con- 
tinued (END FILE, for example, with FILE in 
a second line) will be treated as an END 
statement, and further FORTRAN statements 
will be ignored. 



m 



ENTRIES ; The only entry point CCEKTCA) to 
GNSS is standard subroutine call from Phase 
1. Phase 1 obtains the required V-con/R- 
con pair from intercom. The parameter list 
furnished GNSS by Phase 1 contains one 
address -- the location within Phase 1 
where the phase moved intercom when called 
by Phase Controller, This address is 
required by GNSS, as GMSS ¥ill change items 
in intercom. 



ROUTINES CALLED : GNSS calls the MIO sub- 
routine LINEIN for source lines. LINEIN 
places all information required by GNSS in 
excom. The GETLINE, CJULL, and RETURN 
statements are described in the MIO 
documentation. 



LIST 



DC 


ACPINCOM) 


Location of 
in Phase 1 


intercom 


DC 


A (TEXT) 


Location of 
line 


output 


DC 


A (LENGTH) 


Line length 




DC 


ACLINENO) 


Line number, 
format 


PL4 



GNSS calls the MIO subroutine BFLUSH, to 
flush a buffer by adding its contents to 
the list data set. The linkage is stan- 
dard. The parameter list contains the 
address of intercom in Phase 1 and the 
flushing parameter. 

EXITS : The only exit from GNSS is a stan- 
dard return to Phase 1, with the return 
code in register 15 set as described in the 
executive module. 



GNSS calls the executive subroutine MOD 
i^en GETLINE specifies the terminal user 
has requested that lines be altered. The 
MOD R-con and V-con are in excom. The 
linkage to MOD is standard; the parameter 
list is as follows: 



LIST DC ACPINCOM) Location of intercom 
in Phase 1. 

MOD places a number in register 15 des- 
ignating the action to be taken by GNSS : 

Code Action 

Obtain a new statement. 
U, B, 12 Not expected — GNSS will 

return to caller if these codes 
are present. 

16 Restart required. Return to 
caller with a return code of 
16. 

20 The current statement must be 
reformed completely. 

24 MOD got the first line of the 

new statement and left informa- 
tion concerning this line in 
excom. 

28 MOD met end-of- data -set in 
reading a line. 

Using a standard call, GNSS calls the 
executive subroutine RDM when an error mes- 
sage is to be issued. The RDM V-con/R-con 
pair is in intercom. The linkage is stan- 
dard with the following parameter list: 

LIST DC ACPINCOM) Location of intercom 

in Phase 1. 
Specify the message 
Csee the RDM docu- 
mentation) . 

GNSS calls the OLR entry to subroutine 
MIO when a line is to be added to the 
source listing. The MIO V'-con/R-con pair 
is in excom. The linkage to MIO is stan- 
dard. The parameter list is as follows: 



OPERATION ; The primary responsibility of 
GNSS is to set the necessary information 
for Phase 1 to process a statement. This 
information consists of the line number and 
statement number fields in the intercom 
area and the text character string in the 
area indicated by the intercom text 
pointer. 

Certain internal flags and switches con- 
trol the flow of GNSS: 

TDTERM - This excom flag is raised (set to 
1) before the first line of a 
statement is obtained and lowered 
(set to 0) until the terminal line 
of a statement is detected. 

TDFORM - This excom switch indicates the 

form CC for card, K for keyboard) 
of the preceding line of a state- 
ment. It is set by the first line 
of a statement and reset when a 
statement started in keyboard form 
switches to card form. 

TDOVER - This excom flag is raised when a 
single statement runs over 1320 
characters. Subsequent lines of 
such a statement are not passed to 
Phase 1. 

TEMEC - This intercom item, maximum error 
code, will be set to 8 if input 
lines are ignored due to an error 
detected by GNSS. 



Using the LINEIN entry of MIO, GNSS 
calls the LPC subroutine GETLINE repeatedly 
for source lines until a complete statement 
has been assembled. In addition to 
assembling a source statement, GNSS sets 
the intercom items: the line number of the 
first line CTESLNO) and the statement num- 
ber CTESTNO). GNSS also detects END state- 
n^nts (and sets the intercom item TEEND to 
mark this) and sets the excom indicators 
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TDU, TDPO, TDAPU, TDPUF, and TDAPUF for use 

by the process terminal modifications sub- 
routine CMOD) . 



Card and keyboard lines are processed 
differently, due to their different con- 
tinuation conventions and formats. The 
processing of the first line of a statement 
is also different from the processing of a 
continuation line. For the latter, the 
initial character (TDLE) and the length 
(TDNUMC) of the body of the line text must 
be found. For an initial line, this is 
done only after the line number and state- 
ment number have been placed in intercom. 
As the input lines are received from GET- 
LINE, they are added to the internal files 
area TCTEXl. When a complete source state- 
ment has been formed in this area, the end- 
of-statement character X^FF' is added to 
the statement in this area, and the inter- 
com item TE\7STB is set to the address of 
TCTEXl for the use of Phase 1. 



Calls on GET LINE in conversational mode 
may result in the terminal user's request- 
ing that one or more lines be altered. If 
so, subroutine MOD is called to determine 
appropriate action. MOD may raise the FOR- 
GET flag to inform Phase 1 that the state- 
ment currently held in a tentative status 
by Phase 1 should be removed from all 
tables, as it will be replaced. In this 
case, GNSS will call GETLINE again to 
obtain a source statement for Phase 1 , etc. 
If the tentative statement is to be 
accepted, MOD will direct GNSS to ask for 
new lines without having raised the FORGET 
flag. MOD may also direct GNSS to return 
to the Phase Controller requesting a 
restart. This occurs when the terminal 
user wants to alter a line that Phase 1 
cannot "forget* — a line permanently added 
to the Phase 1 tables. In such a case, the 
next call on GETLINE will again request the 
first source statement of the program. 

When GNSS is initially entered in con- 
versational compilation, the current values 
of TDBOLD and TDBNEW are interchanged. 
After the exchange, TDBOLD contains the 
address of the buffer filled with source 
lines, and corresponding diagnostic mes- 
sages, for the statement obtained on the 
previous GNSS call. TDBNEW is the buffer 
address for the buffer to be filled on the 
current call. 

At exit from GNSS in conversational 

operation, the FORGET flag is checked. If 
its value is zero, the statement is not to 
be "forgotten" so the statement in the 
buffer whose index is TDBOLD is to be added 
to the list data set. If the FORGET flag 
is 1, the line is to be forgotten and is 
not added to the list data set. 



If GNSS encounters an end-of-data-set 
return code from GETLINE, the user omitted 
the END card from his source code. GNSS 
creates an END statement and returns to 
Phase 1 normally. 



As an example of GNSS operation, consid- 
er the case where input is card only- A 
card is obtained, via LINEIN. If the line 
is a comment line, it is added to a list 
data set buffer via OLR; LINEIN is then 
called for another line. If the card is 
not a comment line, the status of the 
TDTERM flag is inspected. This flag is set 
to one upon entry to GNSS so that the line 
is written via OLR. Inspection for a con- 
tinuation line is made. If the card is not 
a continuation card, several operations are 
performed, then inspection for an END card 
is made. If the card is an END card, two 
flags are raised. The text is then moved 
to the Phase 1 buffer. The TDTERM flag is 
then tested again. If down, LINEIN is 
called for a new line, and the chart is 
reentered. If TDTERM is up, the EOS Cend- 
of- source- statement) sequence is entered, 
at which point the end-of- statement 
character is added and return made to 
Phase 1. 



Certain tests made by the code are not 
shown in the flowchart, due to their repet- 
itive nature: 

1. Before OLR is called to add a line to 
a list data set buffer, the TESLO flag 
is checked. If TESLO is not equal to 
Y, no source listing was requested and 
the call is not made. 

2. All executive subroutines called by 
GNSS return with a return code of , 
i» , 8, or 16, as described earlier in 
the General Information section. GNSS 
tests this code, and if it is nonzero, 
return is made to Phase 1 at once, 
with the return code unchanged. 

Continuation inconsistencies Ca con- 
tinuation card line received as the initial 
line of a statement, or a noncontinuation 
card line received after a keyboard line 
indicating continuation) produce diagnostic 
messages and cause the line in question to 
be ignored. If a statement contains too 
many characters, a diagnostic message is 
produced and trailing lines of the state- 
ii«nt are ignored. 



CEKTD — Process Terminal Modifications 
CMOD) 



MOD is called by GNSS when GNSS is 
informed by LPC that a modified line has 
been entered from the terminal. 
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MOD will determine the effect of this 
request upon the obtaining of a source 
statement by GNSS. MOD may: 

1. Direct GNSS to replace part or all of 
the statement currently being formed 
for Phase 1. 

2. Raise the FORGET flag to inform Phase 
1 that the statement currently held by 
it in tentative status should be 
removed from the Phase 1 tables (in 
this case, GNSS will obtain a 
replacement) - 

3. Direct Phase 1 to return to the Phase 
Controller requesting a restart of the 
entire compilation. 

See Chart AD. 



ENTRIES ; MOD has a single entry point 
(CEKTDA) and is currently reached only by 
GNSS, via a standard call. The parameter 
list contains only the address of intercom 
within the phase calling GNSS. 

ROUTINES CALLED : MOD calls the LINEIN 
entry of MIO when an altered line roust be 
inspected to see if it is a continuation 
line. 

EXITS ; MOD returns to the calling program 
using a standard RETURN. A return code is 
set in register 15 by MOD, as follows: 

Code Description 

A new statement is to be 

obtained from LINEIN using the 
current value at TDU (see 
"operation", below) as the line 
number following which a line is 
desired. 
^ Suspected system error. 
8 Compiler error. 
12 Suspected system error. 
16 The compiler must restart. 
20 The current statement will be 

reobtained. 
2tl A line obtained by MOD is to be 

used by GNSS. 
28 MOD met the end- of -data- set 

(also referred to as "EOS" and 
"EODS") in obtaining a line. 

OPERATION : MOD uses the following ex com 
items to determine its response; 

1. TDU. When GNSS is called, TDU equals 
TDPU and also equals the line number 
of the last line of the statement 
passed to Phase 1 on the previous GNSS 
call. During GNSS operations, TDU is 
the line number of the last line 
received from GETLINE (the excom item 
TDLINF, referred to in the flowchart 
as "line number" )- 



When returning to Phase 1, TDU will 
equal the line number of the last line 
of the statement passed to Phase 1. 

2. TDPU. When GNSS is called, TDPU 
equals the line number of the last 
line of the statement passed to Phase 
1 on the previous call. S^en GNSS is 
finished, TDPU is changed to the line 
number of the last line now being 
passed to Phase 1. 

3. TDAPU. When GNSS is called, TDAPU 
equals the line number of the last 
line of the statement prior to that 
last passed to Phase 1. As only the 
last passed statement can be forgot- 
ten, the statement containing TDAPU is 
committed for processing. 

When GNSS returns to Phase 1 , a new 
statement is being furnished. Both 
TDU and TDPU contain the line number 
of the last line of the statement now 
being passed. TDAPU is set to the 
line number of the last line of the 
statement previously passed. The FOR- 
GET flag directs Phase 1 to keep or 
discard this previously passed 
statement. 

Note ; TDPU is never less than TDU; 
TDAPU is never less than TDPU. 

4. TDPUF, the format of line TDPU. 

5. TADPUF, the format of line TDAPU. 

6. TDLINO, the line number of the altered 
line — the line to replace a line in 
or be inserted into the source 
program. 

As an example of MOD operation, consider 
the case where the line number altered is 
less than or equal to a line number already 
committed by Phase 1 C TDLINO < TDAPU) . A 
restart must occur, and MOD sets a return 
code accordingly for GNSS. 

For a second example, assume the order 
is (in sequence of increasing line 
numbers) ; 

TDAPU = TDLINO 
TDU = TDPU 

Another possibility is one in which the 
order of increasing statement numbers is; 

TDAPU 
TDLINO 
TDPU 
TDU 

If line TDAPU was in card form (TDAPUF = 
C) the new line could extend TDPU. The new 
line is inspected. If it is in card format 
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and a continue line, a restart is required, 
as TDAPU is committed. If TDAPU was in 
keyboard form^ or if the new line is not in 
card format and a continue line, TDLINO 
cannot modify TDAPU, so no restart is 
required. The next line to be requested by 
GNSS will be the line following TDAPU. MOD 
thus sets TOO to TDAPU and directs GNSS to 
obtain a new line. The insertion of a line 
preceding TDPU means that TDPU — currently 
held in a tentative status by Phase 1 -- 
must be "forgotten;" therefore, MOD raises 
the FORGET flag. 

CEKTE — Receive Diagnostic Message (RDM) 

RDM accepts a diagncetic message in the 
form of a list of pointers to pieces of 
text, assenbies the pieces into a line 
image, adds the message to the source list- 
ing, and — in conversational operation — 
sends it to the terminal. See Chart AE. 

ENTRIES: RDM has one entry point CCEKTEA) , 
the V^-con and R-con for which are found in 
intercom. RDM is reached only via a stan- 
dard call. The parameter list is described 
below with an example containing strings of 
length 12 and 37 characters to be combined 
into a message by RDM: 



LIST 



LI 



Tl 



L2 



T2 



DC 


ACPINCOM) 


The location within 

the current active 
phase of intercom 


DC 


A (LI) 


String 1 length 


DC 


ACTl) 


String 1 text 


DC 


ACL2I 


String 2 length 


DC 


ACT2) 


String 2 text 


DC 

• 

DC 


A(2ER0) 

FLfl2" 


End- of -string 



DC CL12' 



DC FL1*37» 



DC CL37'...* 



ZERO DC FLl'O* 

ROUTINES CALLED ; RDM calls only the master 
input/ output module CMIO) , at its DIAGOUT 
entry. The DIAGOUT V-con and R-con are in 
excom. Standard linkage is used. The 

parameter list contains : 

LIST DC A (Intercom) Same as in RDM calls 
DC A (Text) Message text 
DC A (Length) Message length, bytes 

EXITS ! Standard return linkage is executed 
to the calling program. The return code 
set is whatever code was returned by MIO. 



OPERATION ; RDM first assembles the diag- 
nostic message as a line image from the 
indicated pieces of text. The DIAGOUT 
entry to MIO is then called to add the mes- 
sage to the source listing, and, if the 
compiler is running in conversational 
operation, to transmit the message to the 
terminal via PUTDIAG. 



If a diagnostic message is greater than 
80 characters, a diagnostic message is 
added to the source listing and only the 
first 80 characters of the message are sent 
to MIO. 



CEKTF — Constant Filers (CONFIL) 

CONFIL receives numeric address and 
statement label constants, ensures that 
they have a symbol table entries , and pro- 
vides symbol table pointers to the con- 
stants. See Chart AF. 



CONFIL "s CRL subroutine creates an 
internal statement number and files this 
number as a label. These labels may be 
used by compiler phases to mark points in 
the code. 



RESTRICTIONS: 



Several references are made 



in text and tables to the filing of con- 
stants of one -byte length (referred to as 
♦1 constants) and of length 16 (*16 con- 
stants) . Currently, no compiler phases 
require that the Constant Files be able to 
file ♦! constants, and no code is included 
for such filings, although space is left in 
various tables. For ♦IS constants, the 
only constant of such length currently is a 
C*16 constant. For such constants, only *8 
alignment is required. In this case, the 
♦16 alignment (not space creation) code 
exists, but is not entered. Similarly, C*8 
constant filing uses ^4 alignment code- 
The planning for these constants is based 
on the possibility that future modifica- 
tions to the compiler would require the 
ability to file them. 



ENTRIES : The CONFIL subroutines are 
reached via a standard call. The V-con and 
R-con values are available to the calling 
programs in intercom. Prior to calling a 
CONFIL routine (CRL excluded), the calling 
program places the constant to be filed in 
the intercom area TECONS. Upon return, 
CONFIL will have filled in the intercom 
item TEPNTR and will have set TEGNU (and, 
for CRL, TELINO) . 

The CONFIL entry points, entry symbol, 
and corresponding TECONS initialization are 

given in Table 5. 
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Table 5. Preparation of Constant Receiving Area by CONFIL 

Entry 
Symbol 



CONFIL 
Name 



I- 

CEKTFB 
CEKTFC 
CEKTFD 
CEKTFE 

CEKTFF 

CEKTFG 



CEKTFI 



CEKTFJ 

CEKTFK 
CEKTFL 
CEKTFM 

L^ 



CONI2 
C0NI4 
CONR4 
C0NR8 

C0NC8 

C0NC16 



FLAD4 



FLAD5 

FLADVR 

FLL 

CRL 



CONFIL V~Con 
C Intercom) 



TEVI2 
TEVI4 
TEVRt* 
TEVR8 

TEVC8 

TEVC16 



TEVFLtl 



TEVFL5 

TEWR 

TEVFLL 

TEVCRL 



Description 



Files 1*2 constants 
Files 1*4 constants 
Files R*4 constants 
Files R*8 constants 

Files C*8 constants 

Files C*16 constants 



Files storage class 4 

constants other than 

R-cons 

Files storage class 5 

constants 

Files V-con, R-con pairs 

Files labels 

Creates § files labels 



TECONS Contents 



Constant to TECNSl 
Constant to TECNSl 
Constant to TECNSl 
High Order 4 to TECNSl 
Low Order 4 to TECNS2 
Real 4 to TECNSl 
Imag. 4 to TENCNS2 
High Order real 4 to TECNSl 
Low Order real 4 to TECNS2 
High Order imag. 4 to TECNS3 
Low Order imag, 4 to TECNS4 
Constant to TECNSl 



Constant to TECNSl 

Constant to TiTCNSl 
Label to TECNSl 



H 



ROUTINES CMJaED : CONFIL calls RDM if over- 
flow occurred in the symbol table storage 
class table. 

EXITS: CONFIL executes a standard return 
linkage to the calling program. A return 
code is set in register 15 as follows: 

Code Meaning 

Normal 

8 Symbol table or storage class 4 
(the adcon page) overflow 

CONFIL returns with register 15 contain- 
ing zero or, if RDM was called, containing 
whatever code was returned by RDM. 

OPERATION : CONFIL initially determines if 
a constant of the type being filed has pre- 
viously been filed. This determination is 
made by inspecting the appropriate anchor 
for the chain in which the constant would 
be included. The constant types, their 
anchors, and the base of the tables con- 
taining the anchors are shown in Table 6. 

If the appropriate anchor is empty (con- 
tains X'80 — ■ meaning End-of-Chain) , the 
constant is added to the symbol table, the 
storage class table is updated, and the 
anchor is made to point to the new entry. 
(This pointer, like all pointers in the 
symbol table, is a 2- byte offset from the 
symbol table base) . 

If the anchor is not empty, the chain to 
which it points is searched until either an 
identical constant is found or an end-of- 
chain indicator is found. If the constant 

has previously been filed, return is made 
with a pointer to the descriptive part of 



the previously filed constant. If the con- 
stant is not already in the chain, it is 
added, the storage class table is updated, 
and the previous end- of -chain entry is 
altered to point to the new entry. 



Much of the code in CONFIL is shared by 
all constant filers. Not all constants are 
created identically, however. The major 
differences are: 

1. The value part of the name part 
entries for 8- and 16-byte constants 
are longer (by 4 and 12 bytes, respec- 
tively) than for 2- and 4- byte 
constants. 

2. The descriptive part for label con- 
stants is 12 bytes, rather than 8 
bytes . 

3. Adcons in storage class 5 \( list- entry 
adcons) are added to the end of the 
chain, without searching for an iden- 
tical previous occurrence. 

4. The code that searches the chains is 
divided into three sections for great- 
er speed. The sections search chains 
for constants of length 2 and 4, 8, 
and 16 bytes, respectively. 

5. One constant filer CFLADVR) files two 
identical constants — a V-con and an 
R-con. The V-con is filed in the 
adcon storage class 4 chain; the R-con 
is filed in the R-con chain. The V- 
and R-cons will occupy adjacent loca- 
tions in storage class 4, in the order 
V-con, R-con. 
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6, Create Label CCRL) creates a label, 
stores it in TECNSl, then files this 
label. 

The possibility exists that constants in 
storage class 4 could be given locations in 
the storage class such that "holes" would 
exist. For example, addition to the 
storage class of three constants of 16 
bytes, 4 bytes, and 16 bytes, respectively, 
in that order and with byte alignment. 



would create a 12-byte "hole". CONFIL 
fills such holes with items filed later, as 
described in Tables 7, 8, and 9. 

CONFIL checks for symbol table overflow 
and storage class overflow, which can occur 
only in storage class 4. If either occurs, 
the TEOFLO item is set in intercom and 
return is made to the calling program with 
a return code of 8. A message is given by 
CONFIL in such an event. 



Table 



Constant Chain Anchors and Table Bases 



r"""" 


CONFIL 




I 








I ' 


Table Base 


— -, 




Name 


Constant Type Filed 




Anchors (in 


Excom) 




(in Intercom) 




H" 


-— i 


^ . 


'~^~ 


— ^ — ^ _ 






—+-- 


^. 


-^ 




C0NI2 


1*2 




TCCHT 


CD 






TECHTB 






CONI^I 


1*4 




TCCHT 


(2) 












CONRH 


R*4 




TCCHT 


C3) 












C0NR8 1 


R*8 




TCCHT 


(4) 












C0NC8 


C*8 




TCCHT 


(5) 












C0NC16 


C*16 




TCCHT 


C6) 












FLADVR 


R-Cons (STCL = 4) ♦ 




TCCHT 


C7) 












FLAD*! 


Adcons CSTCL = 4) 




TCCHT 


C8) 












FLAD5 


1 Adcons (STCL = 5) 




TCCHT 


C9) 












FLL,CRL 


Labels 




TCLHT 


Cl-16) 






TELHTB 





I- — ■ 



-X , ^- 



. ^—-X 



♦STCL means Storage class 



-X^ 



Table 7, CONFIL Storage Assignment No-Hole Branch Table TFNOHO 

J.—.-, . . . ^ -J. — , ^ . ^- 

Length Constant Being Filed 






I 



*1 



♦2 



♦4 



Corresponding Register P-3 Value 
„„.. . ^^ ^ ^^^^^^. 

Current Alignment of 
Next Space in Storage 
Class 2 







8 



*1 
♦ 2 



I 



I 
I 



h 



I TF610 I TF620 | TF630 

I TF610 I TF610 | TF660 
4 ^_+ 1. 

I TF610 t TF610 | TF610 



I *4 

I *B I TF610 I TF610 | TF610 



h 

I 
-X- 



♦ 16 



TF610 I TF685 



I TF610 I TF610 | 

-X . L ^ X- 



TF610 



♦ 8 



12 



I 
I 



♦ 16 

16 



I 
TF640 I TF650 



TF665 I TF670 

-+ 

TF675 I TF680 



TF610 I TF610 

-X- 



Exaroples of Table Use: 

!• An +4 constant is being filed and the alignment in Storage Class 2 is also ♦4, 
Branch to TF610. (No holes produced in Storage Class.) 



An +4 is being filed, and the alignment is ♦S. Branch to TF610. 

produced) • 



(No holes 



3. 



An ♦S is being filed and alignment is *2. Branch to TF665, at which point an *2 
(and +4 if six bytes are required to create ♦S alignment) hole will be made 
available as a result of +8 alignment being produced for the constant. 



30 



Table 8. CO'NFIL Storage Assignment Hole Availability Table 
r- 





-'—— — —'•—■■ 


■"""""' 


""■"*"" 




,_ _ _ 


— 


■"' "" " 




-T- 




T"" 




T - 




•T" 




Length Constant 


Being 


Filed 












1 


♦ 13 


1 


♦ 23 


I 


*^ 


1 


♦ 8 




_^ 


. 







___- 





.. 




-+- 




'+- 




4- 




4- 




Corresponding Register P 


-^ 


\/alue 










1 





1 


4 


1 


8 


1 


12 




















i- 




i 




i 




J 




"" ■" ~' ~ 


T 




~T 




T 




T " 




















Available Hole 


__._— J 


►8 


-+- 


♦ U 


1 
-+- 


*2 


-+- 


♦1 


_— — 









— _ 




-__ 




TDHOL2 = 


[- 


.__ 


--l-- 




1 
-+- 


___ 


-+— 




— — — 


TF590 


.__ 


TF590 


.____ 


TF590 


.— 


TF590 


1 


[- 


.__ 


-+- 




1 
-+- 





-+- 


X 


— ^— 


TF511 


.__ 


TF590 





TF590 


.— ._ 


TF590 


2 


L— . 


__— 


-+- 




1 
-+- 


X 


-+— 







TF521 


.__ 


TF522 


.—- _ 


TF590 


.__ 


TF590 


3 


[- 


_„ 


-+- 




1 
-+- 


*x 


-+— 


*x 


___ 


TF511 


.__ 


TF522 


.—- . 


TF590 


._— 


TF590 


4 


1- 


„-. 


-+- 


X 


1 
-+- 


_— — 


-+— 




— _— 


TFStll 


.-_— 


TF542 


.— 


TF544 


.— — 


TF590 


5 


t- 


.„ 


-+- 


X 


1 
-+- 


„^ 


-+- 


X 


-_— _ 


TF511 


-— 


TF5 4 2 


.— — 


TF544 


.— — 


TF590 


6 


[_ 


„^ 


-+- 


X 


1 
-+- 


X 


-+- 




_ — 


TF521 


.— 


TF522 


.— 


TF544 


-—— 


TF590 


7 






-+- 


X 


1 
■-+- 

1 


X 


-+- 


X 




TF511 




TF522 




TF544 




TF590 


8 




X 










TF581 




TF582 




TF584 




TF588 




I— 





-+- 




-+- 


. 


-+- 



















, — 




9 


I- 


X 


-+- 




1 
-+- 


„. 


-+- 


X 


___ 


TF511 


.__ 


TF58 2 


.__ 


TF584 


.__ 


TF588 


10 


[_ 


X 


-+- 




i 

-+- 


X 


-+- 




— — .— . 


TF521 


.__— 


TF522 


.___ 


TF584 


_— — 


TF588 


11 


\- 


X 


-+- 




1 
-+- 


X 


-+- 


X 


.-— 


TF511 


-— .— 


TF522 


— 


TF584 


,_«. 


TF588 


12 


L— 


X 


-+- 


X 


1 
-+- 


.«»_ — 


-+- 




— — 


TF581 


__— 


TF542 


-— — 


TF544 


— — 


TF588 


13 


L— 


X 


-+- 


X 


1 
-+- 


. — — 


-+- 


X 


._.— _ 


TF511 





TF542 


-— — . 


TF544 


.— _ 


TF588 


14 


L— 


X 


-+- 


X 


1 


X 


-+- 




._ 


TF521 


-— . 


TF522 


-—- . 


TF544 


-— .— 


TF588 


15 


1 


X 


_x_ 


X 


1 
—J.- 


X 


_J. 


X 




TF511 




TF522 




TF544 




TF588 



Examples of Table Use: 

1. An ♦I constant is being filed, no ♦t* constant hole is available (no X under *4 in 
the Available Hole columns)^ and no *B hole is available. Branch to TF590, where 
space will be taken by increasing the size of the Storage Class. 

2. An *2 constant is being filed, no *2 hole is available, but an ♦*♦ hole is avail- 
able. Branch to TF54 2, at which point part of the *H hole will be used, with the 
unused part of the hole assigned to the *2 hole. 

3. Not implemented. 
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Table 9. CONFIL Storage Assignment Byte 
Alignment Branch Table TFBAL 



Alignment of Next 
Available Byte 



I— 

Address Bits 

I T 

8 I 4 



1" +— 



-T T 

I 2 I 1 

4 +— 



+-- 



X 
X 
X 
X 

X 

X 

X 

X 

X 

X 

X 

X 



X 
X 
X 
X 



X 
X 



X 
X 



X 
X 



X 
X 



Constant 
Length 






♦ 16 
♦1 
*2 
*1 
*H 
♦1 
*2 
♦1 

♦ 8 
*1 

♦ 2 
♦1 

♦ 4 

♦1 

♦ 2 
*1 



Nomber 
Loaded 
Into N4 



80 



20 



40 



20 



60 


20 


40 



20 




Lines presented are 
expected to be preceded by 
a carriage control 
character. 

PL4. The otitpot line will 
begin in column 10 of a 
list data set line. The 
first nine characters will 
be XXXXXXXBB, where X = a 
numeric digit, and B = 
blank. A carriage control 
character of a blanks is 
associated with this line. 

BFLUSH CEKTHF Intercom, Flag. Flag is 
4, 8, or 12 for flushing 
old, new, or both buffers, 
respectively. 

ROUTINES CALLED : MIO calls the LPC entries 
GETLINE and PUTDIAG and uses data manage- 
ment through VISAM I/O macro instructions. 

The CALL and RETURN statements for MIO 
calling GETLINE and PUTDIAG are given 
below. 



CEKTH — Master Input/Output (MIO) 

All commimication between interface pro- 
grams supplying source line input to and 
producing edited line output for the com- 
piler is accomplished my MIO. The compiler 
I/O operations are: 

1. Calls on LPC GETLINE 



3. 



Calls on LPC PUTDIAG 

Opening of, additions to, and closing 
of the list data set 



FORTRAN to GETLINE Call 

Register 1 contains the address of the 
parameter list- 

Register 13 contains the address of the 
FORTRAN save area to be used by GETLINE. 

Register 14 contains the return address. 

Register 15 contains the V-type Adcon 
for GETLINE (i.e., the entry point 

address) . 



See Chart AG. 

ENTRIES ; The entry points to MIO are 

listed below. All are reached by standard 
calls. 



Entry 
LDOPEN 

LDCLOSE 

LINEIN 

DIAGOUT 

OLR 



Name 
CEKTHA 

CEKTHB 
CEKTHC 
CKTHD 

CEKTHE 



List in Parameter List 
C Address) 



Intercom 
Intercom 

Intercom 

Intercom, line address, 
4-byte character count. 
Intercom, line address, 
4-byte character count, 
and flag. 

The flag item will be zero 
or a PL4 format line num- 
ber, with the following 

results. 

Zero . The output line 
will begin in column 1 of 
the list data set line. 



[symbol] CALL GETLINE entry-symbol, Cline 
number 

(15) 

to GETLINE-addr, line number 
from GETLINE-addr, length of 
line-addr, source-addr, 
altered line number-addr) 

GETLINE Entry 

Entry point name for GETLINE. 

Line Number to GETLINE 

Specifies the address of a 1-word field 
containing a packed decimal number- (FORTRAN 
is requesting a source line which follows 
the line with this number. ) 

Line Number From GETLINE 

Specifies the address of a 1-word field 
which will contain a packed decimal number 
when GETLINE returns to FORTRAN normally 

(i.e., return code = 0). This will be the 



32 



line number of the source line which GET- 
LINE is giving to FORTRAN. 

Length of Line 

Specifies the address of a 1-word field 
which will contain a binary number when 
GET LINE returns to FORTRAN normally. This 
will be a count of the number of characters 
in the source line which GETLINE is giving 
to FORTRAN. This count will include the 
format character (see source line below) . 

Source Line 

Specifies the address of a field which 
will contain the address of the source line 
when GETLINE returns to FORTRAN normally. 
This line will contain a mam mum of 150 
characters. The first character will be 
or 1 (hexadecimal), depending upon whether 
the line is card or keyboard, respectively. 

Altered Line Table 

Specifies the address of a 1-word field 
which will contain (in packed decimal for- 
mat) the line number of the lowest line 
modified when GETLINE returns to FORTRAN 
%fith a return code of ^ . 

GETLINE to FORTRAN Return 

[Symbol] RETURN 

Upon return from GETLINE, register 15 
contains a code which may be interpreted as 
follows : 



Code Type of Return 
Normal (source line 
has been obtained) . 



4 Lines have been 
altered. 

8 Batch — EDOS (End-of- 
Data-Set. GETLINE was 
asked for a line after 
the last line in the 
data set) . 
12 "•abend-type" 



Parameter 
Information 
Filled In 
Line number 
from 
GETLINE. 
Length of 
line- 

Source line 
Altered 
Line number 
None. 



Indetermi- 
nate. 



FORTRAN to PUTDIAG Call 

Register 1 contains the address of the 
parameter list. 

Register 13 contains the address of the 
LP save area to be used by PUTDIAG. 

Register 1*4 contains the return address. 



Register 15 contains the V-type adcon 
for PUTDIAG (i.e., entry point address). 

[symbol] CALL PUTDIAG, entry - symbol 

(15) 
[ , (message-addr, length of 
message-addr , correction 
request indicator- a ddr) ) 

PUTDIAG Entry 

Entry point for PUTDIAG. 

Message 

Specifies the address of an area which 
contains the message. 

Length of Message 

Specifies the address of a 1-word field 
which contains, in binary, the number of 
bytes in the message. 

Correction Request Indicator 

Specifies the address of a 1-byte field 
which indicates whether the message is to 
go to SYSOUT immediately (00000000) or is 
to be stacked by LPC and output as a 
correction request at the next entry to 
GETLINE (00000001). 

PUTDIAG to FORTRAN Return 



[Symbol] RETURN 

Upon return from PUTDIAG, register 15 
contains a code which may be interpreted as 

follows: 



Code 



12 



Type of Return 
normal 
"abend- type" 



EXITS ; MIO exits to the calling program 
using a standard linkage. A return code is 
set in register 15 as follows: 



Code 




Description 
Normal return. 

GETLINE or PUTDIAG returned with 
an "abend-type" value in regis- 
ter 15. The program calling MIO 
will return to its caller with a 
return code of 4, until the 
phase controller is reached. 
The phase controller will then 
return to LPC with a return code 
of 4. 



OPERATION 

MIO has six entry points. These are 
described below - 
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List Data Set Open Entry ™- LDOPEN 

The phase controller enters at LDOPEN 
to open the list data set. Opening 
will not occur again, unless FORTRAN 
is reached at its initial entry or a 
restart occurs. Restart will cause 
the list data set to be closed, and 
then reopened, thus discarding the 
contents of the previous list data 
set. 

List Data Set Close Entry — LDCLOSE 

The phase controller enters at LDCLOSE 
to close the list data set. Lines 
held in the list data set buffer (see 
ORL below) are output before closing. 



Get a Line From LPC Entry 



LINEIN 



This entry is used by the exec subrou- 
tine CEKTC (GNSS) when a source state- 
ment is being formed for Phase 1 of 
the compiler. LINEIN will call the 
LPC subroutine GETLINE and pass the 
results to GNSS via excom. 

When processing card lines, GNSS 
requests the first line of each state- 
^^^^ twice , once to determine that the 
previous statement is not to be con- 
tinued, and once to obtain the first 
line of the new statement. LINEIN 
does not issue two calls on GETLINE 
under such circumstances. Rather, 
LINEIN saves the line after the first 
request, in anticipation of the second 
request. 

If GETLINE sets register 14 to note an 
abnormal end condition, LINEIN returns 
to GNSS with a return code that will 

force an abnormal end return by Phase 
1 to the phase controller, followed by 

an abnormal end return by the phase 
controller to LPC. 



If the computer is running in conver- 
sational mode, OLR does not output 
source lines as soon as they are 
received, as a terminal correction inay 
require deletion of lines. Instead, 
lines are stacked in one of the two 
MIO buffers (obtained by a PHC GET- 
MAIN) . Diagnostic messages concerning 
these lines are also stacked, in the 
same buffers, and added to the list 
data set only when the source line 
causing the diagnostic is added to the 
list data set. 



5. Output Line Receiver ■ — OLR 



This entry is used by PHC (Phase Con- 
troller), GNSS, and Phase 5 of the 
compiler to add source lines to the 
list data set. 



0,LR operation when called from any- 
where except GNSS is quite simple, as 
lines to be added to the list data set 
will never be replaced. GNSS use, on 
the other hand, is more complex, since 
both the previous statement processed 
by Phase 1 and the current statement 
being prepared for Phase 1 may be 
deleted, due to conversational correc- 
tions. In such a case, the source 
lines for these statements must not be 
added to the list data set- This pur- 
pose could be accomplished by retain- 
ing the entire source program in vir- 
tual storage. The procedure adopted 
by OLR is to stack source lines (with 
diagnostic messages and comment lines 
received concurrently) in buffers 
until the source statement is irrevo- 
cably committed to inclusion in the 
Phase 1 tables and, thus, to further 
processing by following phases. 



Output a Diagnostic Message Entry • — 
DIAGOOT 

Any executive subroutine or any phase 
wishing to output a diagnostic message 
may do so by calling the receive diag- 
nostic message subroutine, RDM. RDM 
forms the message and adds it to the 
terminal (unless in batch operation) 
and list data set (if any) , using the 
DIAGOUT entry to MIO. In cases where 
executive modules have access to a 
complete line, they call DIAGOUT 
directly, for increased efficiency. 

During Phase 1 operation, diagnostic 
messages will frequently be output 
concurrently with addition of source 
lines to the list data set by the MIO 
entry OLR (see below). 



The possibility exists that the capac- 
ity of any reasonably-sized buffer 
will be exceeded, due to an abnormally 
large number of comment lines con- 
tained within a source statement. In 
such a case, a message will be added 
to the list data set, to the effect 
that the statement will be repeated if 
corrected at the terminal . 

6. Flush the Buffer — BFLUSH 

This entry is used by GNSS to move a 
source statement and associated diag- 
nostic messages from an output buffer 
to the list data set. This operation 
is performed only when it is deter- 
mined that the statement cannot be 
replaced through conversational 
corrections. 
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CEKTI Analyze Console Source Line (ANALYZ) 

ANhhYZ, which is "assembled into GNSS 
(CEKTC) , analyzes a console-furnished 
source line to determine the location in 
the string of the statement number (if any) 
and the text. The statement number is 
moved to intercom; the location of the 
first text character and the namber of text 
characters are returned to the calling pro- 
gram GNSS. See Chart I\H. 



Register Contents 

P2 LASTC, the address of the first 

character beyond the last text 

character. 
V2 I, the address of the last 

character inspected prior to 

INSCON entry. 

INSCON alters PI and P3 for use by the 
calling program. 

RO'UTINES CALLED: None 



ENTRIES : ANALYZ is reached only from GNSS, 
via a restricted linkage INVOKE. All 
information required by ANALYZ is in inter- 
com. ANALYZ returns with TDLE in N3, and 
TDNUMC in V2. 

ROUTINES CALLED ; ANALYZ invokes subroutine 
INSCON (CEKTJ) for inspection of individual 
characters. 

Information placed in registers for 
INSCON is: 



EXITS : INSCON returns to the calling pro- 
gram with a RESUME, with a code in RC as 
follows: 



Register 
P2 



V2 



Contents 
LASTC, the address of the first 
character beyond the last text 
character. 

I, the address of the last 
character inspected by INSCON. 



ANALYZ initializes V2, which is updated 
by INSCON. P2 is used, but not changed by 
INSCON. 

EXITS: ANALYZ returns to GNSS via a 
RESUME, with no registers set. All infor- 
mation reqpiired by GNSS is in excom. 

OPERATION : ANALYZ is invoked by GNSS with 
information in excom giving the line length 
(TDLONG) and the address of the area con- 
taining the line CTDLADD) . There are too 
many possible legitimate combinations of 
text characters to describe all ANALYZ 
operations in writing, but the ANAiiYZ flow- 
chart (Chart AY) gives all logic paths. 

Refer to FORTRAN Programmer's Guide , 
"Appendix A: Entry and Correction of FOR- 
TRAN Source Statements," for information 
concerning the format of source statements. 



Code 

4 



8 
12 
11 
20 



Description 
Not used. 

INSCON could not inspect a 
character, as the end of line 
was exceeded. 

The next character was a tab. 
The next character was numeric. 
The next character was blank. 
The next character was not tab, 
numeric, or blank. 

OPERATION : INSCON tests the address next 
character in the console line to see if the 
line end has been reached. If so, the RC = 
^ return is taken; if not, the character is 
converted, inspected, and return made with 
the RC code set appropriately. 



CEKTK ~- Move a Line to the List Data Set 
(LDMOVE) 



LDMOVE is assembled as part of the mas- 
ter input/output module and is invoked by 
MIO via restricted linkage to move a line 
from a buffer to the list data set. LDMOVE 
counts lines moved, restores the page, and 
adds a page heading when required. See 
Chart AJ. 

ENTRIES ; LDMOVE is reached from the MIO 
subroutines FLUSH and BUILD, via an INVOKE. 
All information required by LDMOVE is in 
excom, intercom, the MIO PSECT, or regis- 
ters Nl and N2 : 

Nl = text address 
N2 = character count 



CEKTJ — Inspect a Console Character 
(INSCON) 

INSCON is assembled into GNSS; its func- 
tion is to inspect a character in a console 
source line to determine if it is tab, nu- 
meric, blank, or other. See Chart AI. 

ENTRIES ; INSCON is invoked by subroutine 
ANALYZ via restricted linkage. Information 
required by INSCON is all in registers pre- 
pared by ANALYZ, as follows: 



ROUTINES CALLED: 



LDMOVE uses the VI SAM PUT 



macro instruction to add lines to the list 

data set. 

EXITS ; LDMOVE sets no registers for invok- 
ing programs. Return is via a RESUME. 

OPERATION : LDMOVE determines lAether a new 
page is to be started, and, if so, moves 
the page heading from the internal files 
area to the list data set- The new page 
number is included in this heading. 
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LDMOVE adds the line to the list data 
set, updates line counters, and returns. 



ROUTINES Ciy^LED ; FLUSH invokes LDMOVE. No 

registers are set for, or expected from, 
this invocation. 



CEKTL -— Build a List Data Set Buffer 
CBUILD) 



BUILD is a 
input/output 
via restrict e 
list data set 
This buffer i 
CEKTM) when f 
to be closed, 
coinmitted to 
Chart AK* ) 



ssembled as part of the master 
module and is invoked by MIO 
d linkage to move a line to a 

buffer or the list data set, 
s emptied using FLUSH (see 
ull, when the list data set is 

or when a source statement is 
further compilation. CSee 



ENTRIES : BOILD is reached from the DIAGOUT 
and OLR entries to MIO, via an INVOKE. 
Prograne, invoking BUILD, set registers as 

follows : 



EXITS : FLUSH returns via a RESUME, with no 
registers set for the calling program. 

OPERATION : FLUSH determines if the buffer 
contains any lines to be removed; if it 
does, FLUSH repeatedly invokes LDMOVE until 
the buffer is empty. Otherwise, FLUSH 
returns at once. 



CEKTQ — Compiler File Dump CCOMDUMP) 

COMDUMP prepares hexadecimal dumps of 
compiler internal files, as part of the 
compiler diagnostic feature processing. 

ENTRIES : COMDUBCP contains one entry point, 
CEKTQA. 



Nl = the address of the line to be 

processed 
N2 = the number of characters in this 

line 

ROUTINES CALLED : BUILD may enter LDMOVE or 
FLUSH via an INVOKE. No registers are set 
for, or expected to be set by, these 
subroutines . 

EXITS: BOIID returns to its caller via a 
RESUME, with no registers set. 

OPERATION ; When BUILD is called in batch 
mode, it invokes LDMOVE at once, to move 

the line directly to the list data set- 
In conversation, BUILD checks first to 
see if the list data set buffer currently 
being built is full; if it is, FLUSH is 
called. The line is then added to one of 
the MIO buffers. 



ROUTINES CALLED : C0MDUB4P calls LINDUMP at 
its CEKTSA entry, by means of the CEKTG 
macro. 

EXITS : COMDUMP always makes a RETURN to 
the calling program, with no return code 

set. 

OPERATION : COMDUMP is called with three 
parameters: the address of intercom and 
the low and high addresses of the area for 
which a hexadecimal dump is to be prepared. 
The COMDUMP output lines are issued via the 
CEKTG macro instruction. This macro 
instruction issues a call on the LINDUMP 
module, which in turn issues a VI SAM PUT to 
pass the line to the compiler user. 

An error message is given and no dump is 
produced if the parameters have the second 
address greater than the third. 



CEKTM 



Flush a List Data Set Buffer 



(FLUSH) 

FLUSH is assembled as part of the Master 

Input/Output module and is invoked to flush 
one or both of the list data set buffers by 
moving all lines resident in the buffers to 

the list data set. See Chart AL. 

RESTRICTIONS ; Register P6 must be set for 
FLUSH, as follows: 

P6 Description 

4 Flush the old buffer 

8 Flush the new buffer 

12 Flush both buffers 

ENTRIES : FLUSH is reached from the MIO 
entry BFLUSH, LDCLOSE, and BUILD via an 
INVOKE. All items required by FLUSH are in 

excom, intercom, or the MIO PSECT. 



CEKTS — Compiler Line Dump (LINDUMP) 

LINDUMP is called by the macro CEKTG, 
after CEKTG sets up parameters for the 
call. LINDUMP then forms one or more lines 
in accordance with parameters passed, and 
issues these via the VISAM PUT macro 
instruction. 

ENTRIES : LINDUMP contains one entry point, 
CEKTSA. 

ROUTINES CALLED : The PUT macro instruc- 
tion, issued by LINDUMP, leads to an 
external call. 

EXITS: COMDUMP always makes a RETURN, with 
no return code set. 

OPERATION : Before describing LINDUMP, a 
description of the CEKTG macro instruction 
will be given. 
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Use of CEKTG 

CEKTG can be used by macro instruction, 
in the forms: 

1. CEKTG MIEA, FORMAT, SIZE 

Cone area, one format) 

where: 

AREA - may be any symbol defined 
in the program or a term 
such as DCRN), where D is 
any displacement and RN 
any register. 

FORMAT - may be: 

or X for hexadecimal 

1 or F for fullword integer 

2 or H for halfword integer 

3 or C for character 

4 or Q for quarter-word integer 

5 or B for binary 



SIZE - may be any absolute or 

relocatable expression of 
up to eight characters. 

It is the byte size of 
AREA. 

If FORMAT is C and SIZE is 133, only 
132 characters are printed, and the 
first character is used to control 
printer skipping and spacing as 
follows: 

1 = Skip to new page before print- 
ing the line 

= Space one line before printing 
the line 

+ = Space two lines before printing 
the line 

. . .and any other character is ignored. 

If AREA falls in the range to 15, it 
is assumed to relate to an index reg- 
ister (general-purpose) • SIZE then 
means the number of bytes, starting at 
the left-most (high-order) byte of 
that register. Wrap-around takes 
place, and the registers are printed 
as they were before the macro instmc- 
tion was executed. 

CEKTG A1,F1,A2,F2, . . . .A6,F6 

Cup to six areas and fom^ats) 

where: 

A1,A2,...A6 -- may be as specified 
for AREA above. 

F1,F2,...F6 — consist of a single 
letter, followed by an integer 
number in the range 1 to 999. The 

letter may be: 



2. 



X for hexadecimal 
F for fullword integer 
H for halfword integer 
Q for quarter-word integer 
C for character 
3 for binary 

N for name- indicator (see comment 
below) 

Unless, and until, an N-type format is 
encountered, each area is printed 
separately on one or more lines, with 
the address of the area indicated, and 
the format letter shown. The area 
associated with the N-type format is 
printed in characters, starting at 
print position number 1. Other areas 
following the N-type format are 
printed alongside, up to a print line 
limit of 120 characters; additional 
lines are used if required. There 
will be spaces between individual 
items (bytes, half words, or full- 
words) of multiple areas. 

A1,A2,...A6 may refer to general- 
purpose registers, if they fall in the 
range 0-15. (See discussion on using 
the single-area CEKTG, above.) 

There is no print control option with 
multiple areas. 

The format parameters always specify 
length in bytes. 

The standard CEKTG output line starts 
with REF, followed by the hexadecimal 
return address in the calling program, fol- 
lowed by ADR, followed by the decimal 
address of the area being printed, followed 
by the hexadecimal address of the area 
being printed, followed by a format letter 
(X, F, H, Q, or B) , followed by data items. 
The data items are separated by spaces, 
except in the case of the Q format. 

When a single area is printed in 
character format, or when multiple areas 
follow a name area (see above) , the stan- 
dard indication is dropped, and data starts 
at print position 1. 

Except when using character format , 
there is always one space between the out- 
put of successive entries to CEKTG. 

The CEKTG macro instruction saves and 

restores all registers around the call. 

This is the initial PRF entry generated 
at the initialization of Phase 1 



CEKTG — Calling Sequence 

1. The calling sequence for the single- 
area CEKTG is as follows: 
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LA 0,N SET FORMAT CONTROL 

LA l^PARAM POINT TO LIST 

L 15/ADCEKT 

CALL CIS) ,MF=CE, CD) 

PARAM DC A (AREA) 

DC A(SIZE)SIZE IS IMMEDIATE 
VALUE 
ADCEKT ADCON IMPLICIT , EP=CEKTSA 

...where the parameter N is a number 
in the range 0-5 (see notes on single- 
area CEKTG macro instruction above) • 

2- The calling sequence for the multiple- 
area CEKTG is as follows: 

LA 0,6 SET MDLTIPLE AREA 

LA 1, PARAM POINT TO LIST 

L 15, ADCEKT 

CALL (15) ,MF=(E, CD) 

PARAM ex: ACAD FIRST AREA 

DC CL4'F1» FIRST FORMAT 

DC A(A2) SECOND AREA 

DC CL4»F2' SECOND FORMAT 

NOPR END OF LIST 
ADCEKT ADCON IMPLICIT , EP=CEKTSA 

The parameters required for LINDUMP to 
prepare line(s) as described above are 
stored by CEKTG in intercom. CEKTG then 
calls LINDOBIP. LINDUMP inspects these 
parameters, and builds one line of output. 
This output is issued via a VISAM PUT, a 
second line is prepared if requested, and 
so on. 
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SECTION 3; PHASE 1 



INTRODUCTION 

Phase 1 performs the initial scan of the 
source program, analyzes it for syntactical 
correctness, and encodes the information 
for sutsequent processing. Figure 13 il- 
lustrates the operation of Phase 1. 

On entrance from the compiler executive. 
Phase 1 initializes itself, calls GNSS to 
get the first source statement, and enters 
its main loop. 

The main loop is traversed once for each 
source statement. It classifies the state- 
ment and calls an appropriate subroutine to 
process the statement. On return from an 
individual statement processor, GNSS is 
called for the next source statement. GNSS 
indicates, toy the forget flag, whether the 
statement just processed should be compiled 



or ignored due to action by a conversation- 
al user. In the latter case or if the 
statement just processed contained serious 
errors, the results of processing that 
statement are expunged from all tables and 
output files, and the loop is reentered at 
the top to process the new statement just 
obtained. Otherwise, final housekeeping 
appropriate to the old statement is per- 
formed, and the loop is reentered at the 
top. 

The processing for a statement includes 
producing appropriate output. Executable 
statements cause entries in the program 
representation file CPRF). Declarations 
may set fields in symbol table entries or 
produce output in the stoage specification 
list or preset data file. In addition, 
certain staten^nts may affect Phase 1 
internal tables and flags. 




Figure 13. Phase 1 Interface 
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Access to the source text is through two 
subroutines: ESC and"ACOMP. ESC supplies 
the next character on request. ACOMP sup- 
plies a pair of consecutive items: the 
first is a variable name, function name, 
constant, or statement number (label) ; the 
second is a delimiter, ACOMP calls subrou- 
tines to make symbol table entries, convert 
constants to binary, etc. 

Statements containing arithmetic or log- 
ical expressions call' €he subroutine EXPR 
to process these expressions into Polish 
notation, which is output in the expression 
representation file (ERF), The subroutine 
SUBS processes subscripts, as a special 
category of expressions for EXPR and the 
statement processors - 

When source program errors are detected 
by Phase 1, the subroutine ERR is called to 
prepare a diagnostic message and transmit 
it to the executive subroutines RDM, The 
message is determined by the parameters 
presented to ERR. A parameter may indicate 
a piece of prestored text to be included in 
the message or may direct the subroutine to 
obtain information from the compiler's 
tables (e-g., a name from a symbol table 
entry) and insert it in the message. 
Depending on the entrance used, ERR will 
also set the local maximum error code and 
may raise the delete flag. 

After recognizing and processing the 
source program END statement. Phase 1 
returns control to the executive. 

Phase 1 has one PSECT that provides 

working storage for all Phase 1 modules. 
This PSECT is contained in module PHIM 

(CEKAI) and is organized as shown in 
Figure 14. 

Phase 1 creates entries in the inter- 
phase files and tables listed below. 



PROGRAM REPRESENTATION FILE (PRF) 

The PRF consists of the executable ele- 
ments of a source program. PRF entries are 
linked (chained) together in the sequence 
of their generation. Additional linking 
connects PRF entries by types. 

Definition point analysis connects each 
definition point of each variable, connects 
the definition points of any formal argu- 
ments, and connects the definition points 
of all COMMON variables. Variables are 
defined when used as: 

1. The expression to the left of an equal 
sign in an arithmetic or logical 
statement. 



PSECT 



Page <( 



SAVE AREA ( 19 Words) 



Phase 1 Working Storage 
( 3508 8/tes ) 



Exec Intercom 
(512 Bytes) 



Phase ! Internal Working Storage 



Page 1 -<' 



Page 2 



Page 3 < 



HSTCK (Operator Stack for EXPR) 
LEVTAB (Level Table for lOLST) 
(3328 Bytes) 





SXS { Subexpression Stack for EXPR) 
LPTAB ( Left Parenthesis Table for lOLST) 
(768 Bytes) 


Symbol Table Save Area 


CSTK ( Constant Stack for EXPR ) 
(256 Bytes) 


- — 


TTRM (Tentative Term Table for SUBS) 
(768 Bytes) 


DOSTCK ( Do Loop Stack for BGNLP) 

( 1024 Bytes) 


LBLTBL (Alternate Return Laoels for CALL) 
( 2048 Bytes) 


5FEF (Statement Function Expansion Area) 

(110,480 Bytes) 



Page 4-8 



Figure 14. Phase 1 Storage 



2. An induction variable of a DO 
statement - 

3. A variable in an input list. 

4. An argument of an external subprogram. 

(All COMMON variables are defined when an 
external subprogram reference occurs in the 

source program. ) 

Statement number processing establishes 
the branching structure of the source pro- 
gram. Statement number definitions are 
entered in the PRF and are linked. All 
statement numbers referenced as branch 
points are linked. 

DO statement processing establishes the 
looping structure of the source program. 
The beginning and terminating points of 
each loop are connected to each other and 
to other loop delimiting points. In addi- 
tion to the loops specified by the source 
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program, a false loop is indicated before 
the first executable statement of the 
source program. This provides a position 
in the PRF for computation of expressions 
that are effectively constants in the 
program. 

The program representation file, as 
generated by Phase 1, consists of the fol- 
lowing types of entries. Additional 
entries are added by succeeding phases. 



cal) . It contains a pointer to the expres- 
sion representation file (ERF) entry repre- 
senting the expression to the left, and 
another for the expression to the right , of 
the equal sign. An assignment statement is 
a variable definition point for the 
assigned- to identifier; it may be a common 
definition point if the defining expression 
contains a reference to an abnormal func- 
tion. An "abnornal" function subprogram is 
one which does any of the following: 



Begin Program Entry 

This is the initial PRF entry generated 
at the initialization of Phase 1. Program 
type is set to indicate a main program. 
This setting is changed by the occurrence 
of a sutfsrogram (SUBROUTINE or FUNCTION) 
statement. This entry is the terminal 
entry of the LINK chain. 



Subprogram Entry 

This multiple-purpose entry is a global 
(external) entry point. As such, it is 
linked into the label definition chain 
within the PRF. It has a pointer to the 
symbol table entry of a subroutine or func- 
tion name and a pointer to a list of symbol 
table ^itries of the formal parameters of 
the subprogram. This list specifies the 
order of occurrence of the fornal parame- 
ters. This is a false loop level entry. 
It is the primary entry point of a program. 



Alternate Entry 

This entry is generated for each occur- 
rence of an ENTRY source statement and 
identifies a secondary entry point for a 
program. It is a global (external) entry 
point. As such, it is linked into the 
label definition chain within the PRF. It 
is a false loop level entry. It has point- 
ers to the symbol table for the entry name 
and for entries of the formal parameters. 



Label Definition Entry 

The label definition entry is generated 
for each occurrence of a statement number 
in the source language and for each 
compiler- generated statement number. Label 
definition PRF entries mark possible entry 
points for local (internal) flow control. 
To facilitate the flow analysis by Phase 2, 
they are linked to the preceding entry 
point. 

Equation Entry 

This entry is generated from a FORTRAN 
assignment statement (arithmetic or logi- 



1. Refers to or changes the value of any 
COMMON variable. 

2. Changes the value of any of its 
arguments. 

3. Causes input or output. 

^. Does not always return the same value 
when called with the same arguments. 

All external functions are treated as 
abnormal by the compiler. 



GO TO Entry 

A GO TO entry is generated for each 
occurrence of a GO TO source statement. 
Each is linked to the preceding label 
referencing PRF item, forming the 
referenced label chain used by Phase 2. 



Assigned GO TO Entry 

This entry is generated for each occur- 
rence of an assigned (30 TO source statement 
and contains a list of the statement num- 
bers which may be assigned to the variable. 
Each statement number in the list is pre- 
sumed to be referenced at this entry and, 
therefore, is linked to the preceding label 
referencing PRF item for analysis by Phase 
2. 



Computed GO TO Entry 

Each occurrence of a computed GO TO 
source statement causes an entry that con- 
tains a list of the statement numbers to 
which control can be transferred. Each 
label in this list is assumed to be 
referenced at this entry and therefore, is 
linked to the preceding label referencing 
PRF item for analysis by Phase 2. 



ASSIGN Entry 

This entry is generated for each occur- 
rence of an ASSIGN source statement. It is 
considered neither a reference to the label 
specified nor a redefinition of the 
assigned variable. Hence, the PRF entry is 
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not linked into the label reference chain 
or into the definition point chain. This 

entry is applicable to code generation 

only. 



Arithmetic IF Entry 

This entry is generated for each occur- 
rence of an arithmetic IF source statement. 
Each label specified is assumed to be 
referenced at this entry- This item, is 
linked to the preceding label- referencing 
PRF item. A label value of zero indicates 
fall-through to the next executable state- 
ment. If the expression contains a 
reference to an abnormal function, this 
item serves as a redefinition point for all 
COMMON variables and is linked into the 
common definition chain within the PRF. 
The test expression is in the ERF. 



Logical IF Entry 

This entry, generated for each occur- 
rence of a logical IF source statement, 
combines the logical expression part with a 
conditional branch part to make the PRF 

entry very similar to the arithmetic IF- 
If the conditional statement is not a 

simple GO TO source statement, the expres- 
sion is negated, a label is generated, and 
a transfer true to the generated label is 
indicated. This item is linked to the pre- 
ceding label referencing PRF item. If the 
expression contains a reference to an 
abnormal function, this item serves as a 
redefinition point for all COMM>N variables 
and is linked into the COMMON definition 
chain within the PRF, 



CALL Entry 

Statement numbers specified as actual 
arguments of a CALL source statement are 
entered into a list in a PRF entry. Each 
label in the list is assumed to be 
referenced at this PRF entry. Hence, CALL 
PRF entries are linked to the preceding 
label referencing PRF entry. The occur- 
rence of a CALL source statement, which is 
a reference to an abnormal function, is a 
redefinition point for all COMMON variables 
and is linked into the COMMON definition 
chain within the PRF. 

The occurrence of a CALL source state- 
ment also effects the generation of an 
argument definition point PRF entry for 
each actual argument of the call that is a 
simple or subscripted variable. Each of 
these PRF entries is linked to the previous 
definition point of the argument. 



Argument Definition Entry 

This entry is generated for each actual 
argument of an external reference (a call) 
that is a simple or subscripted variable. 
Each entry is linked into the definition 
chain of the particular variable. 



RETURN Entry 

This entry is generated for each occur- 
rence of a RETURN source statement within a 
subprogram. STOP PRF entries are generated 
for RETURN statements occurring within a 
main program. These entries are either 
explicit or implicit references to global 
(external) labels. As such, they are 
linked to the preceding label referencing 
PRF entry. 



Begin Loop Entry 

For each DO statement, each implied DO 
statement, and around the total PRF exclud- 
ing global (external) entry points, there 
are begin and end loop PRF entries. For 
each begin loop three successive PRF 
entries are made. Having three entries 
facilitates the optimization processing of 
Phase 3. Loop PRF entries are interlinked. 
Each begin loop links to the previous begin 
loop and end loop PRF entries. The begin 
loop entry is also linked to its own end 
loop PRF entry. 



End Loop Entry 

This entry is generated upon completion 
of the processing of a statement with a 
label that matches the last label in the DO 
pushdown list. An end loop entry is linked 
to the corresponding begin loop and to the 
previous loop PRF entry, begin or end. 



CONTINUE Entry 

An entry is included only to show pres- 
ence of CONTINUE statements in the source 
program. 



READ, READ Without Unit, and READ i^ith 
NAMELIST Entries 

An entry is generated for these source 
input statements. READ statements having 
either an 1»F label or an ERR label speci- 
fied are linked into the label reference 
chain of the PRF. 

WRITE and WRITE With NAMELIST Entries 

These are generated by WRITE source 
statements. 
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PRINT and PUNCH E:. .ries 

These are degenerate (particular) cases 
of WRITE source statements. 



entry may consist only of an operand, as is 
the case with the entries for ASSIGN, GO 
TO, RETURN, etc, statements. 



Input/ Out put List Representation in the PRF 
Entry 

Each entry is a redefinition point when 
the list is associated with a READ state- 
ment. Begin and End Loop PRF entries from 
implied DOs are appropriately interspersed. 
A list sequence of PRF entries follows the 
I/O PRF entry with which they are to be 
associated. 



End List Entry 

This is a control entry in the PRF 
sequence to indicate the termination of an 
I/O list sequence to the code generation 
phase. 



Subscript Expressions 

For subscript expressions, especially 
those containing loop variables, the occur- 
rence of a loop variable causes its initial 
value to be incorporated into the expres- 
sion. Also, the array item length is in- 
corporated into the expression, so that the 
expression can be used directly in address 
computation. Wherever possible, terms are 
combined in order to increase efficiency. 
Finally, two additional plus operators are 
included before the special subscript 
operator to facilitate processing by Phase 
3. 

Special representations in the ERF are 
shown below. 

Function and subroutine references: 



END FILE, REWIND, and BACKSPACE Entries 

An entry is generated upon occurrence of 
each of these statements in the source 
program. 



F(x) 

F(x,y) 

F(x,y,z> 



X F 
X y 
X y 



F 
z 



STOP Entry 

This entry is generated upon occurrence 
of a STOP statement in the source program 
or for a RETURN statement appearing in a 
main program. 



Max and Min function references: 



AMAXl(X,y, Z) X Y 
AMAXOCI, J, K) I J 



MAX Z MAX 

MAX K MAX FLOAT 



PAUSE Entry 

This entry is generated upon occurrence 
of a PAUSE in the source program. 



End Program Entry 

PRF control entry to indicate the end of 
the PRF. 



Subscripts: 
array 



variable item with offset 
and flag 



subscript - sum of products 
expression 

subscript - : 
operator 



EXPRESSION FILE 



STORAGE SPECIFICATION TABLES 



The expression file consists of individ- 
ual strings of entries which are operands 
and operators in the usual right-hand 
Polish notation. These strings represent 
all arithmetic and logical expressions 
occurring in the source program and any 
subscripts that are not constants. Expres- 
sion file entries are generated by the fol- 
lowing statonents: equation, arithmetic 
and logical IF, READ, WRITE, PRINT, PUNCH, 
RETURN with variable index, ASSIGN, 
assigned and computed GO TO, and CALL. An 



The storage specification tables consist 
of two types of entries: a common entry 
and an equivalence entry. A common entry 
is made for each occurrence of a COMMON 
statement in the source program and repre- 
sents each variable and its particular 
storage class (blank or named COMMON) in 
the statement. An equivalence entry is 
made for each occurrence of an EQUIVALENCE 
statement in the source program and repre- 
sents the variables in each EQUIVALENCE 
group and their offsets, if any. 
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The way an equivalence entry is made 
depends on the dimension information pre- 
ceding or following the equivalence 
statement. 

In the event that dimension information 
for a particular variable (DIMENSION, COM- 
MON or TYPE statement) or that a sub- 
scripted variable in the EQUIVALENCE state- 
ment contains only a single subscript, the 
offset in EEl or EE6 is computed, 

EE2~5 or EE7-10 are not used. 

The type field in EEl or EE6 indicates 
the type of variable. 

When dimension information does not: pre- 
cede the EQUIVALENCE Statement and a sub- 
scripted variable in the EQUIVALENCE state- 
ment contains more than one subscript, EEl 
or EE6 contains the number of subscripts. 
In this case EE2 or EE7 are required, and 
EE3-5 or EE8-10 nay be required. 

The type field in EEl or EE6 is set to 
'FF'" indicating that this variable con- 
tains the number of subscripts in EEl or 

EE6 followed by EE2 or EE7 and possibly 

EE3-5 or EE8-10. 



DIMENSION TABLE 

The dimension table consists of entries 
in the preset data reference set. An entry 
is made for each array dimension specifica- 
tion occurring in the source program. 
These specifications may occur in DIMEN- 
SION, COMMON, or explicit type statements. 
If the array is not a formal argument, the 
entry represents the number of dimensions, 
total size, and the dimension products of 
the array. If the array is a formal argu- 
ment, the entry represents the number of 
dimensions and the individual size specifi- 
cations (value for a constant or symbol 
table pointer for a variable) . 



NAMELIST TABLE 

The namelist table consists of entries 
in the preset data reference set. Each 
entry consists of a set of symbol table 
pointers to the variables in a given NAME- 
LIST. An entry is made for each occurrence 
of a namelist name in a NAMELIST statement. 



for each occurrence of a FORMAT statement 
or a literal constant (except as initial 
values in a DATA or Type statement), the 
alphameric storage class counter is incre- 
mented by the number of bytes in the format 
or literal constant. 



FORMAT PROCESSING 

Format labels are entered into the sym- 
bol table and marked as defined. The cur 
rent value of the alphameric storage class 
counter is entered as the storage location 
in the descriptive part of the symbol table 
entry . 

The alphameric format information, 
including the initial open parenthesis and 
the terminal closing parenthesis, is output 
as an alphameric table entry in the preset- 
data- reference set. The location of this 
entry is entered into the descriptive part 
of the label symbol table entry. The 
alphameric storage class counter is incre- 
mented by the number of bytes of alphameric 
information. 

The alphameric table entry consists of 
an identification element, an alphameric 
element, and either a termination element 
or a continuation element. All alphameric 
table entries are linked together. As each 
new entry is made after the initial entry, 
the terminal ID is changed to continuation, 
and the new entry location is entered as 
the continuation link- 



ALPHAMERIC CONSTANTS 

A label is generated for each occurrence 
of an alphameric constant as an actual 
argument of a subroutine call. This label 
is entered into the symbol table, in a 
manner analogous to a format label. The 
entrance constitutes both the definition 
and the reference of this label. The 
storage class is set to 3, and the current 
value of the class-3 location counter is 
entered into the label symbol table entry. 
The location counter is incremented by the 
size of the literal constant. An alphamer- 
ic entry is made in the alphameric table 
(see "Format Processing"). 

Literal constants occurring as preset 
data are processed in the same manner as 
numeric constants occurring as preset data. 



STORAGE CLASS TABLE 

Phase 1 also adds certain information to 
the storage class table. Each COMMON block 
name occurring in a COMMON statement is 
entered into the storage class table and 
causes the count containing the number of 
COMMON block names to be updated. Also, 



DATA PROCESSING 

Each DATA statement and each data speci- 
fication within a type statement produces a 
data entry in the preset data reference set 
transmitted to Phase 5. Each data entry 

consists of a variable element, one or more 
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value elements, and a continuation or ter- 
minal element- The variable elements have 
a pointer to the variable symbol table 
entry. The variable elements within a data 
entry are linked together. The continua- 
tion element links the data entries togeth- 
er. The address of the first data entry is 
in the intercom region. 



CROSS REFERENCE INDEX LIST 



Pass 2 Statement Processors 

Due to the conversational nature of the 
compiler, certain operations pertaining to 
the processing of a statement are best 
delayed until it is sure the statement will 
not be deleted. These modules perform the 
final encoding and housekeeping operations 
for each of the various FORTRAN source 
statements. The modules are DCL2 , EXEC2 , 
BLDA2, IMPL2, SUBE2, CALL2, and STFN2 . 



If the user has selected the cross 
reference option, each occurrence of a 
statement number or variable identifier in 
a program causes an entry to be made in the 
cross reference index list. Each entry in 
this list consists of a symbol table point- 
er to the element name or label value, the 
line number of the occurrence, and an indi- 
cator. The indicator specifies that the 
occurrence is an assignment or a defini- 
tion, rather than the usage of or reference 
to the element. 

A variable identifier entry is marked as 
assigned when it occurs, as follows: 

1. To the left of the equal sign in an 
assignment statement. 

2. To the left of the equal sign in a DO 
statement. 

3. In an i\SSIGN statement. 

4. As an element of an input list. 

5. As an element of a NAMELIST referenced 
by a READ statement. 

Statement number entries are marked as 
defined when the label PRF entry is made. 
All other occurrences of elements are usage 
or reference entries. 



Expression Processing and Translation 

These routines perform the analysis and 
encoding of arithmetic and logical expres- 
sions wherever they may occur. Two of 
these routines are devoted exclusively to 
subscript processing. They are SOBS and 
TRMPRO. The other routines are EXPR, 
CN¥RT, SFDEF, SFEXP, FNCLS, LIEN, ARITH, 
AARG, and CHKINT. 



Source Extraction and Conversion 

These routines perform the character-by- 
character source analysis of the basic lan- 
guage elements (variables, constants, and 
labels) and any conversions required. They 
also file these elements in the symbol 
table as required. The routines are ESC, 
ACOMP, FLRC, IVST, ICNV, FCNV, and FLIC. 



Loop Processing Service Routines 

The routines that perform the analysis 
and encoding of loops whenever they occur 
are BGNLP, ENDLP, CKLIM, and CLLIM. 



I/O Statement Processor Service Routines 



PHASE 1 ROUTINES, FUNCTIONAL DESCRIPTION 

Phase 1 routines can be grouped accord- 
ing to the function they perform. A brief 
description of the function of each group 
and the routines belonging in each group 
follow. 



Pass 1 Statement Processors 

These nodules control the analysis and 
encoding of each of the various FORTRAN 
source statements. The modules are EQUA, 
EXTE, GOTO, IF, TYPE, CONT, OIMN, COMM, 
EQUI, DO, ASSI, FCON, RWIO, FORM, PSR, 
NAML, BLDA, DATA, IMPL, BLNK, 3UBE, CALL, 
and END- 



These routines perform analysis and 
encoding of parts of I/O statements for 
RWIO. The routines are lOLST, FLABL, 
RTRAN, and FNAME. 



Initial Value Processing Service Routines 

These routines analyze and encode the 
initial values occurring in the explicit 
type and DATA statements; they are IDATA 
and IVAL. 



Miscellaneous Service Routines 

There are a number of routines that per- 
form specific functions as required by 
various statement processors and other rou- 
tines. These routines and their functions 
are as follows: 
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ARDIM ™ analyze and encode the dimension 
specifications for an array when 
encountered in a dimension^ common 

or type statement. 

LBSTR - process the label string as encoun- 
tered in the assigned and computed 
GO TO statement. 

SID - classify each source statement and 
assign its ID number. 

LAJBL - encode statement labels and deter- 
mine if any loops are ended. 

FALTH - determine if a statement number 

reference was to the next sequen- 
tial statement and mark the 
reference for possible later 

optimization. 

ERR - generate a diagnostic message and 
add it to the output data set. 



ROUTINE DESCRIPTIONS 

Phase 1 routines bear mnemonic titles as 
well as coded labels. The five- character 
coded labels begin with the letters CEK; 
the fourth and fifth letters identify a 



specific routine. Various entry points to 
a routine are identified by a sixth 
character appended to the coded label. Any 
mnemonic name beginning with the letters 
TEV refers to an Executive routine or entry 
point, rather than to a Phase 1 routine. 
The corresponding coded label is given in 
parentheses immediately following the 
mnemonic. 

There are no hardware configuration 
requirements for any of the Phase 1 rou- 
tines. All these routines are reentrant, 
nonresident, nonprivileged, and closed. 
Except for entry to the Constant Arithmetic 
Interrupt routine (CEKCS) , which uses stan- 
dard linkage, all entries must be by 
restricted linkage conventions. Each Phase 
1 routine has only one exit? there are no 
special exits for error conditions. 

Phase 1 is composed of 65 routines. The 
relationships of these routines are shown 
in the following nesting chart (Figure 15) 
and decision table (Table 10) . The rela- 
tionships are shown in terms of levels; a 
called routine is considered to be one 
level lower than the calling routine. The 
nesting chart is drawn to show only link- 
ages to the fourth level. Phase 1 main 
loop is considered to be level 1. 
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Table 10. Phase 1 Decision Table CPart 1 of 8) 



Routine :--^^ — — ■ Phase 1- 

j. ._-. — ^, . 



-Level: 1- 



Routine 
PHIM 



Usage 
Phase 1 Main Loop 



Called 

Routines 



SID 
EQUA 

EXTE 
GOTO 

IF 

TYPE 

CONT 

DIMN 

COMM 

EQUI 

DO 

ASSI 

FCON 

RWIO 

FORM 
PSR 

NAML 
BIDK 

DATA 
IiyiPL 
BLNK 
SUBE 

CALL 

END 
DCL2 

EXEC2 

BLDA2 

IMPL2 

SUBE2 

CKL12 
STFN2 

ESC 
I VST 

ERR 
TEVGNS 
CCEKTC) 



Calling Conditions 



To identify the type of source statement. 
To process logical and arithmetic assign- 
ment statements. 
To process EXTERNAL statements . 
To process GO TO statements. 
To process Arithmetic and Logical IF 

statements. 
To process type declaration statements. 
To process CONTINUE statements. 
To process DIMENSION statements. 
To process COMMON statements. 
To process EQUIVALENCE statements. 
To process DO statements. 
To process ASSIGN statements. 
To process BACKSPACE, END FILE, and REWIND 

statements. 
To process READ, WRITE, PRINT, and PUNCH 

statements. 
To process FORMAT statements. 
To process PAUSE, STOP, and RETURN 

statements. 
To process NAMELIST statements. 
To process BLOCK DATA statements. 
To process DATA statements. 
To process IMPLICIT statements . 
To process blank source statements. 
To process ENTRY, FUNCTION, and SUBROUTINE 

statements. 
To process CALL statements. 
To process END statements. 
To terminate processing of various 

decl aration statements . 
To terminate processing of executable 

statements. 
To set program type for BLOCK DATA 

statements. 
To perform final housekeeping for IMPLICIT 

statements. 
To make PRF entries for ENTRY, FUNCTION, 

and SUBROUTINE statements. 
To adjust the CALL PRF entry. 
To terminate processing of Statement 

Functions . 
To obtain next source character. 
To make Symbol Table entry for alphameric 

names . 
To generate diagnostic messages. 
To get next source statement. 



H 



m 



Table 10. Phase 1 Decision Table 

. Phase 1 — •' ■— 



(Part 2 of 8) 



Routine :- 

r 

Routine 

SID 



-Level: 2- 



Usage 



^ ^ 

Called 
Routines 



Calling Conditions 



Source statement 
identification 



ESC 
ERR 



To obtain next source character - 
To generate diagnostic messages. 



EQUA 



— -H 



Equation statement 
processor*^ 



LABL 
EXPR 

ERR 



EXTE 



+- 



-+ 



To process statement label. 

To translate source language expressions 

into Polish Notation. 
To generate diagnostic messages. 



EXTERNAL Statement 
processor 



ACOMP 

ERR 



To assemble source characters into basic 

components. 
To generate diagnostic messages. 



I 

GOTO 



H 



IF 



GO TO statement 
processor 



IF statement processor 



ESC 
ACOMP 

LABL 

LBSTR 

ERR 

ESC 
ACOMP 

EXPR 

LABL 
ERR 

TEVCRL 
(CEKTFM) 



To obtain next source character. 

To assemble source characters into basic 

components . 
To process statement labels. 
To process a string of labels. 
To generate diagnostic messages. 

To obtain next source character. 

To assemble source characters into basic 

components . 
To translate source language expressions 

into Polish Notation. 
To process statement labels. 
To generate diagnostic messages. 
Exec routine that creates a label for a 

code file. 



TYPE 



+ 



Explicit type statement 
processor 



ESC 
ACOMP 

ARDIM 

IDATA 

ERR 



H 



h 



CONT 



+ 



To obtain next source character. 

To assemble source characters into basic 

components. 
To process dimension specifications for an 

array. 
To process initial value data for type and 

DATA statements. 
To generate diagnostic messages. 



h 



DIMM 



CONTINUE Statement 
processor 

DIMENSION statement 
processor 



ESC 

LABL 

ERR 

+ 

ACOMP 

ARDIM 

ERR 



4 



To obtain next source character. 

To process statement labels. 

To generate diagnostic messages. 



H 



H 



h 



To assemble source characters into basic 

components. 
To process dimension specifications for an 

array. 
To generate diagnostic messages. 



H 



COMM 



EQUI 



COMMON statement 
processor 



EQUIVALENCE 
Statement processor 



ACOMP 

ARDIM 

ERR 

ESC 
ACOMP 

SUBS 

ERR 



X- 



To assemble source characters into basic 

components . 
To process dimension specifications for an 

array. 
To generate diagnostic messages. 

To obtain next source character. 

To assemble source characters into basic 

components . 
To translate subscript expressions into 

Polish Notation. 
To generate diagnostic messages. 



-J. 
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Table 10, 
Routine :» 



Phase 1 Decision Table (Part 3 of 8 ) 
. Phase 1- -■ . — • ^ Level: 2 — (Conf d)- 



Routine 
DO 



Usage 



iCalled 
R outines 



Calling Conditions 



h 



DO Statement 

processor 



I ACOMP 

I 

|LABL 
I BGNLP 
I ERR 



+- 



To assemble source characters into basic 

components. 
To process statement labels. 
To process Begin Loop information. 

To generate diagnostic messages. 



ASS I 



h 



ASSIGN statement 
processor 



I ESC 
I ACOMP 

I 

ILABL 

I ERR 

JTEVFLL 

I CCEKTFL) 



To obtain next source character. 

To assemble source characters into basic 

components . 
To process statement labels. 
To generate diagnostic messages. 
Exec routine that makes Symbol Table entry 

for created label . 



H 



FCON 



h 



RWIO 



h 



FORM 



h 



NAML 



File control statements 
processor C BACKSPACE, 
END, FILE, REWIND) 



lACOMP 

I 

JLABL 
I ERR 
jlVST 



To assemble source characters into basic 
components . 

To process statement labels. 

To generate diagnostic messages. 

To make Symbol Table entries for alphamer- 
ic names. 



4 , , 

I/O statements 
processor (READ, WRITE, 
PRINT, PUNCH) 



-—+' 



lACOMP 

I 

JLAJBL 
I lOLST 

I 

I ERR 

I FLABL 

[RTRAN 

IFNAME 

I 

I IVST 

f 
ITEVI4 

I CCEKTFC) 



To assemble source characters into basic 
components . 

To process statement labels. 

To process list elements for READ, WRITE, 
PRINT, and PUNCH statements. 

To generate diagnostic statements. 

To process FORMAT statements. 

To process ERR and END labels. 

To process variable FORMAT designators or 
NAMELIST names. 

To make Symbol Table entries for alphamer- 
ic names. 

Exec routine that files an Integer *^ 
constant. 



H 



FORMAT stateii^nt 

processor 



-— +- 



NAMELIST Statement 



I ESC 
I ERR 
ITEVFLL 
I CCEKTFL) 

~+ 

JACOMP 

I 

|ERR 



To obtain next source character. 
To generate diagnostic messages. 
Exec routine that makes Symbol Table 
entries for created labels. 



H 



— + 



To assemble source characters into basic 

components. 
To generate diagnostic messages. 



BLDA 



h 



BLOCK DATA |ESC 

Statement processor j ERR 



To obtain next source character - 
To generate diagnostic messages. 



H 



DATA 



IMPL 



DATA statement 

processor 



IMPLICIT Statement 

processor 



lACOMP 

I 

I SUBS 

I 

I I DATA 

I 

I ERR 

"+ 

I ESC 
I ACOMP 

I 

I ERR 

_JL. .^ 



To assemble source characters into basic 

components . 
To translate subscript expressions into 

Polish Notation. 
To process initial value data for type and 

DATA statements. 
To generate diagnostic messages. 



+- 



To obtain next source character. 
To assemble source characters into basic 
components. 

To generate diagnostic messages. 



H 
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Table 10. Phase 1 Decision Table (Part 4 of 8) 
Phase I--' • — ' — 



Routine: 

r 



-Level : 2~ (Cent • d) — 



Routine 
BLNK 



+ 



Usage 



Called 

Routines 



Calling Conditions 



h 



Blank statement 
processor 



ERR 



To generate diagnostic messages. 



SUBE 



Subprogram entry 
statements processor 
(ENTRY, FUNCTION, 
SUBROUTINE) 



ACOMP 

ERR 

TEVCRL 
(CEKTFM) 



To assemble source characters into basic 

components. 
To generate diagnostic messages. 
Execute routine that creates a label for 

the code file. 



CM.L 



+ 



CALL statement 
processor 



lABL 
EXPR 



To process statement labels. 
To translate source language expressions 
into Polish Notation. 



END 



END statement 
processor 



ENDLP 
PSR 

ERR 



f 



To encode the End Loop entries. 
To process PAUSE, STOP, and RETURN 

statements. 
To generate diagnostic messages - 



DCL2 



Declaration statements 
final processing 



none 



BLDA2 



BLOCK DATA statement 
final processing 



none 



IMPL2 



SUBE2 



f 



IMPLICIT statement 
final processing 



none 



Subprogram entry 
statements final 
processing 



none 



CALL2 



STFN2 



— + 



CALL Statement final 
processing 



EXEC2 



To terminate processing of executable 
statements. 



Statement function 
statement final 
processing 



none 
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Table 10. Phase 1 Decision Table (Part 5 of 8) 
.- — ^, Phase 1- --^ ' 



Routine: 



-Level: 



h 



Routine 



Osage 



Called 
Routines 



Calling Conditions 



PSR 



PAUSE, STOP, RETURN 
Statement processor 



ACOMP 

LABL 
ERR 

TEVCRL 
CCEKTFM) 



To assemble source characters into basic 

components. 
To process statement labels • 
To generate diagnostic messages. 

Exec routine that creates a label for the 
code file. 



h 



-+" 



EX, EC 2 



EXPR 



Executable statements 
final processing 
^^^ ^ . .^ . 

Process expression 



ENDLP 
FALTH 



To encode the End Loop entries . 

To check for references to current label - 



ACOMP 
SUBS 

CNVRT 

FNCLS 
LIBN 

SFDEF 

SFEXP 
AARG 

ERR 
CHKINT 



To assemble source character into basic 

components . 
To translate subscript expressions into 

Polish Notation- 
To convert constants to new type. 
To determine proper class of a function. 
To select appropriate Library Function 

name. 
To neke entries in the Statement Function 

Expression File. 
To make entries in the Expression File. 
To make Argument Definition entries in the 

PRF. 
To generate diagnostic messages. 
To treat floating point overflow and 

divide checks. 



h 



ARDIM 



Process array dimension 
specification 



ESC 
ACOMP 

ERR 



h 



To obtain next source character. 

To assemble source character into basic 

components . 
To generate diagnostic message. 



H 



IDATA 



Process initial data 
specifications 



ERR 
IVAL 



To generate diagnostic message. 
To process constants as initial values in 
type or DATA statements. 



lOI^T 



Process I/O statement 

list 



ESC 
hCOMP 

SUBS 

BGNLP 
ENDLP 
ERR 
IVST 



To obtain next source character. 

To assemble source character into basic 
components . 

To translate subscript expressions into 
Polish Notation. 

To process Begin Loop information. 

To encode End Loop entries. 

To generate diagnostic messages. 

To make Symbol Table entries for alphamer- 
ic names. 



FLABL 



Process FORMAT state- 
ment number in I/O 

statement 



ERR 

TEVFLL 
CCEKTFL) 



h 



RTRAN 



Process END and ERR 
statement numbers 
in READ statements 



-+ 



To generate diagnostic message. 
Exec routine that makes Symbol Table 
entry for created label. 



ACOMP 
ERR 



To asseiid3le source characters into basic 

components . 
To generate diagnostic message. 



FNAME 



Process FORMAT and 
NAMELIST name in 
I/O statements 



ERR 



To generate diagnostic message. 



LBSTR 



Process label string in 
Assigned and Computed 
GO TO statements 



ESC 
ACOMP 

ERR 



To obtain next source character. 

To assemble source characters into basic 

components. 
To generate diagnostic message. 
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Table 10. 
Routine: - 



Phase 1 Decision Table (Part 6 of 8) 

_ Phase 1-- ' -— ^ — Level : 4- 



Routine 



Usage 



Called 
Routines 



Calling Conditions 



SUBS 



Process subscripts 



ACOMP 

ERR 
TEMPRO 

TEVI4 
(CEKTFC) 



To assemble source characters into basic 
components. 

To generate diagnostic message. 

To process a tentative subscript term pre- 
pared by SUBS. 

Exec routine that files an Integer*^ 
constant. 



lABL 



+ 



Process statement nun^ber 



ERR 

TEVCRL 
CCEKTFM) 



To generate diagnostic message. 
Exec routine that creates a label for the 
code file. 



BGNLP 



— f 



Process and generate 
Begin Loop elements 



-+■ 



ACOMP 

CKLIM 
ERR 

TEVCRL 
CCEKTFM) 



To assemble source characters into basic 

components. 
To check loop parameters for validity. 
To generate diagnostic message. 
Exec routine that creates a label for the 

code file- 



ENDLP 



f 



Generate End Loop 



CLLIM 



FALTH 



Determine fall- through 
on GO TO and IF 
statements. 



-+■ 



To remove loop parameter information from 
Symbol Table. 



ERR 



To generate diagnostic message. 



h 



+ 



SFDEF 



Initialize for statement 
function definition 



ESC 
ACOMP 

ERR 



SFEXP 



f- 



To obtain next source character. 

To assemble source characters into basic 

components . 
To generate diagnostic message. 



Expand Statement 
Function reference 



ACOMP 



ERR 



FNCLS 
IVAL 



+ 

I ^ 
+ 



To assemble source characters into basic 

components . 
To generate diagnostic messages. 



Classify function name 



none 



Process initial values in 
DATA or type 
staten^nts 



ESC 
ACOMP 

CNVRT 
ERR 



AARG 



+- 



To obtain next source characters. 

To assemble source characters into basic 

components 
To convert constants to new type. 
To generate diagnostic message. 



h 



Process function 
argument 



+- 



none 



CHKINT 



Check for arithmetic 
interrupt during 
expression processing 



none 



^± 



Section 3: Phase 1 53 



Table 10. Phase 1 Decision Table (Part 7 of 8) 

Routine:- • — - — Phase 1— ■ — ^ ■ ^ ■ Level: 5- 



r ■ 


T "" - 


[Called 


-.,j . . , 

1 


1 Routine 


1 Usage 


(Routines 


1 Calling Conditions 


|. , — _ 


-^ — , 


-- j. 


_^ — , . .^ , 


lACOMP 


1 Assemble component 


(ESC 


fro obtain next source character. 




1 Coperand-operator pair) 


(FLRC 
1 


(To file real and complex constants in Sym- 
1 bol Table. 






[IVST 

1 


[To make Symbol Table entries for alphamer- 

1 ic names. 






(ICNV 

1 


|To convert a decimal integer to a binary 
1 integer. 






(FLIC 
1 


[To file integer constants in the Symbol 

1 Table. 






(ERR 


[To generate diagnostic message. 






(TEVCRL 


[Exec routine that creates a label for the 






1 (CEKTFM) 1 code file. 


I- 


^4.^„„, — . — , ^, 


-+ 


_+ ^ . ^ „ 


ICNVRT 


fChecks types and converts |LIBN 


(To select appropriate Library Function 




1 constants 


1 


1 name • 






[ARITH 


[To perform all constant arithmetic. 






(ERR 


[To generate diagnostic message. 


1" ■— 


^i— — — 


-J. 


X ,. , ,.„ , _ , „ , ,„,. ,^, „ _. „, „ .„ ,_, „ _ ^ ^ _ _ _ „, 




T 




1 TEMPRO 


1 Process subscript term 


|ERR 


[To generate diagnostic message. 


l- 


„^ . ^. — . . — , 


-+ 


.+ ^ 


1 CKLIM 


[Check loop parameters 


(ACOMP 


[To assemble source characters into basic 




1 for correctness and 


1 


1 components. 




1 validity 


(ERR 


[To generate diagnostic message. 


I- 


^^^. ^™^^ 


~+ 


_-|. — ^ , . , 


|CTJ,TM 


[Clear flags on loop 

1 parameters at End Loop 


|none 
1 


1 
1 


t , . .— ... 


-X 


™X , „^ , _ 


1 



Routine: 

r "~- 

(ESC 



— ^. ^— Phase 1- 



-Level : 



h 



LIBN 



FLRC 



(Extract source character 

.4 ^ 

Select Library Function 
name 



i- 



(none 

+ 

IVST 

ERR 



File real constant in 
Symbol Table 



FCNV 

ERR 
TEVRII 

CCEKTFD) 
TEVR8 

CCEKTFE) 
TEVC8 

CCEKTFF) 
TEVC16 

(CEKTFG) 



To make Symbol Table entries for 

alphameric names. 
To generate diagnostic message. 



To convert a decimal constant to floating 

binary . 
To generate diagnostic message. 
Exec routine to file a Real*t* constant. 

Exec routine to file a Real* 8 constant. 

Exec routine to file a Complexes constant. 

Exec routine to file a Complex* 16 
constant. 



FLIC 



ARITH 



File integer constant in 

Symbol Table. 



ICNV 

ERR 
TEVIil 
(CEKTFC) 



To convert a decimal integer to a binary 

integer. 
To generate diagnostic message. 
Exec routine to file an Integer* 1 
constant. 



+-- 



Perform constant 
arithmetic during 
expression scan 



ERR 

CHCBGA 

CHCBKC 

CHCBIA 

CHCBKA 

chcbm: 



To generate diagnostic message. 



FORTRAN Math Library exponentiation 
rout ines . 
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Table 10. Phase 1 Decision Table (Part 8 of 8) 

Routine: — ^ Phase 1 — •— • — ■ • — ^ -Level: 7- 



[Routine 
H- 

JIVST 

I 



Usage 



[Called I 
I Routines | 



Calling Conditions 



JFile variable name in j ERR 
I Symbol Table | 



[to generate diagnostic message. 



IFCNV 



t Convert floating-point 
I number from decimal 
I to binary. 



I ICNV 

I 
|ERR 

-JL 



I To convert a decimal integer to a binary 

I integer. 

I To generate diagnostic message. 

_x ^. ._. ^^ ^ 



Routine: ^ ^ — • — ^Phase 1 — ^- — ^ — ■ ^ — -> — • — ^ — ^ Level : 8 • 



r 

JICNV 



I ERR 



I Convert integer from 
I decimal to binary. 



I none 



I 

I 



+- 



[Generate diagnostic |TEVRDM 
I message | CCEKTE) 



I Exec routine that issues a diagnostic 
I message. 



CEKIID 



Phase 1 Main Loop CPHIM) 



PHIM controls the identification, analy- 
sis, and encoding of source data in Phase 
1. See Chart Ml. 



ENTRIES : PHIM has one entry point CEKADl. 
Exec intercom base is expected in parameter 
register P2. 



EXIT: No output parameters. 



OPERATION : PHIM performs all initializa- 
tion for Phase 1. This includes generation 
of a begin program PRF item, followed by 
the begin loop PRF itene for the false 
loop. Following initialization, a source 
statement is read, identified, analyzed, 
and encoded by calling appropriate subrou- 
tines. At this point, the next source 
statement is read, and the forget and 
delete flags are tested. If either the 
forget flag (set by GNSS) or the delete 
flag (set by any of the statement process- 
ing subroutines) is raised, the previously 
encoded statement is deleted. The state- 
ment deletion is accomplished by resetting 
appropriate items in intercom from their 
respective backup values. These backups 
are set for each statement prior to state- 
ment processing. The symbol table is 
restored for variable items, through use of 
a symbol table save area (Figure 16) . 
Backups for all variable symbol table 
entries except the NAME, DPP, LINK, TYPE, 
and LINKF items are entered into the save 
area, and if deletion is required, these 
backups are used to restore the symbol 
table entries. After deletion, the next 
statement is processed. 



BKPB^ 


BPNTR^ 


BKPB2 


BPNTRj 


..A 


^^ 


A 


^y- 


7 ' 


BKPB^ 


BPNTR^ 



BKPB ~ Backup Byte for Symbol Table change 
8PNTR - Byte Pointer into Symbol Table for BKPB 



Figure 16. Symbol Table Save Area 

If the statement is not deleted, the 
appropriate subroutine is called to com- 
plete the processing for that statement* 
All tables which may have been updated are 
then checked for overflow. If no overflow 
occurred and the statement just processed 
was not an END statement, control is trans- 
ferred to the beginning of the loop, to 
process the next statement. 



CEKAK — Assignment Statement Processor 
CEQUA) 

EQUA analyzes and encodes logical and 
arithmetic assignment statements. See 
Chart AN. 



EQUA has one entry point CCEKAKl) 
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ENTRIES ; 

and no input parameters. 
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EXIT : No output parameters. 

OPERATION ; EQOA generates an equation PRF 
entry and than calls the Expression Scan 
subroutine. If the expression is a state- 
ment function definition, the PRF entry is 
deleted, and the statement ID number is 
changed from assignment to statement 
function. 



CEKAM — EXTERN jyL s€a^ement Processor 
CEXTE) 



EXTE analyzes and encodes the EXTERNAL 

statement. See Chart AO. 

ENTRIES: EXTE has one entry point CCEKAMA) 

and no input parameters, 

EXIT : No output parameters. 

OPERATION : EXTE checks to see that the 
statement is not in a BLOCK DATA program 
and is not the conditional statement of a 
logical IF. If not, the statement is 
scanned, and the variables listed are 
marked as "external function" in the symbol 
table. If the statement is in a BLOCK DATA 
program or is the conditional statement of 
a logical IF, an error message is produced 
and the scan is terminated. 



CEKAQ 



GO TO Statement Processor (GOTO) 



GOTO analyzes and encodes all forms of 
the GO TO statement. See Chart AP. 

ENTRIES ; GOTO has one entry point CCEKA- 

QA) , with no input parameters 

EXIT ; No output parameters. 

OPERATION ; After calling the Label Pro- 
cessing routine, GOTO determines whether 
the state u^nt is an unconditional GO TO, 
assigned GO TO, or computed GO TO. In each 
case, the appropriate PRF entry is made. 
If an unconditional GO TO is the condition- 
al statement of a logical IF, the sign of 
the ERF entry for the logical IF is 
changed, and the GO TO label value is 
inserted as the true transfer label in the 
logical IF PRF entry. For the assigned and 
computed GO TO, internal subroutine LBSTR 
is called to process the label list into 
the PRF entry. 



CEKAR 



IF Statement Processor CIF) 



IF analyzes and encodes the arithmetic 
and logical IF statements. See Chart AQ. 

ENTRIES ; IF has one entry point CCEKARA) , 

with no input parameters. 

EXIT ; No output parameters. 



OPERATION ; After calling the label pro- 
cessing routine, IF generates an arithmetic 
IF PRF entry. It then calls upon the 
Expression Processing routine to analyze 
and encode the conditional expression. If 
the expression type is logical, the 
logical-IF indicator is set and the PRF 
entry ID is changed to logical IF. A non- 
source label is created and entered as the 
"true" transfer label in the PRF entry. If 
the expression type is arithmetic, the 
three transfer labels are entered in the 
PRF entry. 

CEKAS — Type Statements Processor (TYPE) 

TYPE analyzes and encodes the type 
statements, including INTEGER, REAL, COM- 
PLEX, LOGICAL, and DOUBLE PRECISION. See 
Chart AR. 

ENTRIES ; TYPE has five entry points, each 
of which requires no input parameters. The 
five entry points are INTE (CEKASI) for the 
INTEGER statement, REAL CCEKASR) for the 
REAL statement, COMP (CEKASC) for the COM- 
PLEX statement, LOGL (CEKASL) for the LOGI- 
CAL statement, and DOBP (CEKASD) for the 
DOUBLE PRECISION Statement. 

EXIT : No output parameters. 



OPERATION: 



A type switch is set to show 



which type statement is used. Where the 
statement is not DOUBLE PRECISION, TYPE 
scans it for a length indication; if there 
is a length indication, the type switch is 
adjusted to show the length. TYPE then 
continues the scan, picking up variables 
and making entries in the symbol table to 
specify the variable type. If the variable 
is dimensioned, TYPE also makes entries in 
the dimension table to specify array 
length. If a dimension specification is 
encountered (indicated by a variable fol- 
lowed by a left parenthesis) , the Dimension 
Scan routine is called to process the 
dimension- If an initial value specifica- 
tion is encountered (indicated by a slash), 
the Data Scan routine is called to process 
the initial values. 



CEKAT 



CONTINUE Statement Processor 



CCONT) 

CONT analyzes and encodes the CONTINUE 
statement. 

ENTRIES : CONT has one entry point CCEKATl) 
and no input parameters. 

EXIT ; No output parameters. 

OPERATION ; CONT calls the label processing 
siibroutine to convert the label, if any, 
and to see if any loops are ended. The 
logical IF indicator is tested to see if 
this is the conditional statement of a log- 
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ical IF statement, and a warning message is 
issued if it is . h CONTINUE PRF entry is 
made, and the statement scanned to see that 
the remainder of the statement is blank. 



CEKAO — DIMENSION Statement Processor 
(DIMN) 

DIMN analyzes and encodes the DIMENSION 
statement. See Chart AS. 



ENTRIES : DIMN has one entry (CEKAUA) , with 



no input parameters. 



EXIT ; No output parameters. 



OPERATION ! DIMN first checks to see that 
the DIMENSION statement is not a condition- 
al statement of a Logical IF. It then pro- 
ceeds to scan the statement calling the 
dimension specification processing routine, 
to process the dimension values as they are 
encountered for each variable. Appropriate 
diagnostics are generated if any source 
errors or incongruities are encountered. 



CEKAV 



COMMON Statement Processor CCOMM) 



COMM analyzes and encodes the COMMON 
statement. See Chart AT 



CEKAY — EQUIVALENCE Statement Processor 
(EQUI) 

EQUI performs the analysis and encoding 
for the EQUIVALENCE statement. See Chart 
AU. 

ENTRIES ; EQOI has one entry point CCEKAYA) 
and no input parameters. 

EXIT : No output parameters. 

OPERATION : EQUI determines that the state- 
ment is not the conditional statement of a 
logical IF. If this is the case, the head- 
ing information for the equivalence table 
is entered into the storage specification 
table. Source elements are acquired with 
ACOMP and analyzed for syntactical correct- 
ness. Variables are entered into the 
equivalence table as they are encountered, 
and subroutine SUBS is called to determined 
any offsets indicated by a left parenthesis 
following a variable. If an offset cannot 
be completed because the dimension informa- 
tion (TYPE, COMMON, or DIMENSION statement) 
has not yet been specified for an equiva- 
lence variable, the actual subscripts are 
stored in the Storage Specification List. 

Appropriate diagnostics are generated if 
any source errors or incongruities are 
encountered. 

CEKA2 — DO Statement Processor (DO) 



ENTRIES ; COMM has one entry point CCEKAVl) 
with no input parameters. 

EXIT ; No output parameters. 



OPERATION : 



COMM first checks to see that 



the COMBON statement is not a conditional 
statement of a logical IF. If this is the 
case, it then opens the common list entry 
and begins the scan of the statement. Com- 
ponents are acquired with the assemble com- 
ponents routine, and variables are entered 
into the common list. The symbol table 
entry common flag is raised, and, if the 
variable is followed by a left parenthesis, 
the array dimension specification processor 
routine is called to process the dimension 
values . 

Variables enclosed in slashes initiate a 
search of the storage class table for named 
COMMON blocks, and if any are found, the 
storage class is appropriately set. Other- 
wise, the name is entered as a named COMIC^N 
block, and a new storage class is estab- 
lished. If there are two slashes without 
an intervening variable, the storage class 
will be set to 9 for blank COMMON. 

Appropriate diagnostics are generated if 
any source errors or incongruities are 
encountered. 



DO analyzes and encodes the DO state- 
ment. See Chart AV. 

ENTRIES ; DO has one entry point (CEKAZl) 
and no input parameters. 

EXIT ; No output parameters. 



OPERATION ; 



DO determines that the state- 



ment is not the conditional statement of a 
logical IF. If it is not, A COMP is called 
to acquire the label for the end loop. If 
the label value is satisfactory, BGNLP is 
called to process the loop variable, range, 
and increment. Appropriate diagnostics are 
generated if any source errors or incon- 
gruities are encountered. 

CEKBC — ASSIGN Statement Processor (ASSI) 

ASSI analyzes and encodes the ASSIGN 
statement. See Chart AW. 

ENTRIES : ASSI has one entry point (CEKBCA) 
and no input parameters. 

EXIT ; No output parameters. 

OPERATION : ASSI generates a PRF entry for 
the ASSIGN statement and then scans the 
source characters. ACOMP is called to 
acquire the assigned label and the vari- 



Section 3 : Phase 1 57 



able. The intervening characters "TO" are 
checked individually after calls on ESC. 

Appropriate diagnostics are printed if 
any source errors or incongruities are 
encountered. 



CEKBD 



File Control Statement Processor 



CFCON) 

FCON analyzes and encodes the BACKSPACE, 
END FILE, and REWIND statements. See Chart 

AX. 

ENTRIES ; FCON has three entry points: 
BKSP CCEKBDl), ENDF CCEKBD2), and REWI 
(CEKBD3) for the BACKSPACE, END FILE, and 
REWIND statements, respectively. FCON has 

no input parameters. 

EXIT ; No output parameters. 

OPERATION : FCON has three entry points i 

sets a switch to one of three values, 
depending upon which entry was taken. A 
PRF entry is generated and the switch set- 
ting entered in that entry, to indicate 
whether the source statement was BACKSPACE, 
END FILE, or REWIND. ACOMP is called to 
acquire the unit number, which is entered 
into the PRF entry- The I/O initialization 
library routine entry name (CHCIAl) is 
filed in the symbol table and marked as 
class external. 

Appropriate diagnostics are printed if 
any source errors or incongruities are 

encoun t er ed . 

CEKBE — Input/Output Statement Processor 
CRWIO) 

RWIO analyzes and encodes the READ, 
WRITE, PRINT, and PUNCH statements. See 
Chart AY. 



ID is changed accordingly. For the READ 
statement, END and ERR condition transfer 
options are checked and entered into the 
PRF if present. If they are not given, the 
statement number items in the PRF are set 
to zero. SuDroutine lOLST is called to 
process the list elements if required. The 
I/O Initializatio^n Library routine's entry 
name (CHCIAl) is :iled in the symbol table 
and marked as class external. 

Appropriate diagnostics are printed if 
any source errors or incongruities are 
encountered. 



CEKBF 



FORMAT Statement Processor (FORM) 



FORM analyzes and encodes the FORMAT 
statement- See Chart AZ. 

ENTRIES ; FORM has two entry points: 
CEKBFl, for Phase 1 FORMAT statement pro- 
cessing, and SYSPFMT, for FORTRAN I/O-time 
FORMAT statement processing. CEKBFl has no 
input parameters; SYSPFMT has the following 
i nput par ame t er s : 

P2 — FIO Translate Table 

P3 — Address of FORMAT statement 

pil — FORMAT table output area 

EXITS : Only the normal exit is made, with 
no output parameters. 

OPERATION: FORM begins by determining that 
the statement is not the conditional state- 
ment of a logical IF statement and not 
inside a BLOCK DATA program. If this is 
the case, the statement label is then con- 
verted to its binary value and filed in the 
symbol table (see Table 11). 

The FORMAT table is initialized in the 
Preset Data area, and encoding of the FOR- 
MAT statement begins. 



Character 



ID Code 



ENTRIES : RWIO has four entry points: READ Table 11. Encoding of FORMAT Symbols 
(CEKBEl), WRIT (CEKBE2) , PRNT (CEKBE3), and 
PUNC CCHCBE^) , for the READ, WRITE, PRINT, 
and PUNCH statements, respectively. RWIO 

has nO' input parameters. 

EXIT : No output parameters. 

OPERATION : RWIO has four entry points. 
Each entry point generates a PRF entry 
corresponding to the type of source state- 
ment. For the READ statement, RWIO first 

determines whether or not it is a READ 
without anit statement. For all state- 
ments, the Assemble Components routine is 
called to acquire statement components as 
required. If no FORMAT reference is given, 
the FORMAT pointer in the PRF entry is set 
to X»8000». 

If a NAMELIST reference is given in 
place of a FORMAT reference, the PRF ENTRY 
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The encoding consists of filling out a 
FORMAT table Csee Table 12), through which 

the compiler communicates tor mat informa- 
tion to FORTRAM I/O routines. An entry is 
placed in the table whenever a valid FORMAT 
statement code is found. In addition, syn- 
tax is checked, and diagnostics are issued 
for errors- FORMAT statement processing 
continues after diagnostics. 



FORM terminates --ti^ scan when it finds a 
level-zero right parenthesis. 



CSKBG -- PAUSE, STOP, RETURN Statement 

Processor (PSR) 

PSR analyzes and encodes the PAUSE, 
STOP, and RETURN statements. See Chart BA. 

ENTRIES ; PSR has four entry points: PAUS 
(CEKBGl), STOP (CEKBG2), and RETU CCEKBG3) 
for the PAUSE, STOP, and RETURN statements, 
respectively, and ESTOP CCEKBG4) for the 
call by the END statement processor (END). 
None of the entry points has input 
parameters. 



Table 12- Translation of Format Codes 
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EXIT : No output parameters. 



CEKBM — DATA, Statement .Processor (DATA) 



OPERATION: 



PSR has four entry points, one 



each for the PAUSE, STOP, and RETURN state- 
ments, and one for a call from the END 
statement processor Cto generate a stop 
when there is flow into an EMD statement) . 
A PRF entry is generated for the PAUSE, 
STOP, and RETURN statements, respectively. 
An appropriate literal constant is filed 
for the pause and stop entries and for a 
return entry in a main program, A call 
from the END statement processor causes a 
stop PRF entry to be generated. The pause 
and stop library routine entry names are 
filed in the symbol taole and marked as 
class external « 

Appropriate diagnostics are printed if 
any source errors or incongruities are 

encountered* 



CEKBH — ' NA.MELIST Statement Processor 
CNAML) 

NAML analyzes and encodes the NAMELIST 
statement. See Chart BB. 

ENTRIE S; NAML has one entry point CCEKBHl) 
and no input parameters. 

EXIT : No output parameters. 

OPERATION : NAML first checks to see that 
the statement is not the conditional state- 
ment of a logical IF or in a BLOCK DATA 
program. NAML then gets the Namelist name, 
which must be enclosed in slashes. After 
the Namelist name : ■;• checked for correct 
class; a Namelist table entry is made and 
the symbol table pointer for each variable 
in the list is entered into the table. 
Appropriate diagnostics are printed for any 
source errors or incongruities encountered. 



DATA analyzes and encodes the DATA 
statement. See Chart BD. 

ENTRIES ; DATA has one entry point CCEKBMl.) 

and no input parameters. 

EXIT : No output parameters. 

OPERATION ; DATA first checks to see that 
the statement is not the conditional state- 
ment of a logical IF statement. The 
variables in the statement are then 
extxacted and entered into a parameter 
list, until a slash is encoiintered. Sub- 
routine IDATA is called at entry DDATA to 
process the initial value specifications 
for the list of variables. The process is 
repeated until an end of statement or a 
source error is encountered. Appropriate 
diagnostics are printed if any source 
errors or incongruities are encountered. 



CEKBN — IMPLICIT Statement Processor 
CIMPL) 



IMPL analyzes and encodes the IMPLICIT 

statement. See Chart BE. 

ENTRIES : IMPL has one entry point CCEKBNl) 
and no input parameters. 

EXIT ; No output parameters. 



OPERATION: 



IMPL first determines that the 



CEKBI 



BLOCK DATA Staten^nt Processor 



CBLDA) 



statement is not the conditional statement 
of a logical IF statement. The implicit 
type table is then copied into a temporary 
hold area, where it can be modified without 
destroying the current status of the table. 
The type specification is extracted from 
the source statement and identified, and 
the corresponding type code is established. 
The letters being typed are then extracted 
and used as a index to modify the implicit 
type table in the temporary hold area . 



ELD A analyzes and encodes the BLOCK DATA 
statement. See Chart ac. 

ENTRIE S ; BLDA has one entry point CCEKBIl) 
and no input parameters. 

EXIT ; No output parameters. 



OPERATION: 



BLDA first determines that the 



statement is not the conditional statement 
of a logical IF. If this is the case, BLDA 
checks the program type code to determine 
whether it is unknown. If it is, a normal 
exit is taken; otherwise, BLDA prints a 
diagnostic and exits. 

If the statement is the conditional 
statement of a logical IF, BLDA prints a 
diagnostic and exits. 



CEKBR 



Blank Statement Processor CBLNK) 



BLNK processes a blank source statement. 

ENTRIES ; BLNK has one entry point (CSKBRl) 

and no input parameters. 

EXIT : No output parameter s- 

OPERATION: BLNK first checks the logical 
IF indicator. If it is nonzero, a diag- 
nostic is printed to the effect that no 
conditional statement is given for a logi- 
cal IF statement. If the logical IF indi- 
cator is zero, the label field is checked 
to see if it was blank. If so, a nornal 
exit is taken; otherwise, a diagnostic mes- 
sage is printed. 
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CEK33 -- Subprogram Entry Statements 
Processor CSUBE) 

SUBE analyzes and encodes the ENTRY, 
FUNCTION, and SUBROUTI^IE statementG. See 
Chart BF. 

ENTRIES : SOBE has two entry points: ENTR 
(CEKBSl) and FONC and SUBR CCEKBS2) for the 
ENTRY FUNCTION, and SUBROUTINE statements, 
respectively. None of the entry points has 
input parameters. 

EXIT: No output parameters - 

OPERATION: SUBE has an entry point for 
each of the three statements it processes. 
For the ENTRY statement, the program type 
is checked to ensure that it is a subpro- 
gram. If the no flow flag is down (indi- 
cating that the previous executable state- 
ment transfers control only to the current 
statement), a label is created and filed, 
and the symbol table pointer is entered 
into the PRF. This is done so that a 
branch around the ENTRY statement can be 
generated. The DO level is also checked 
for zero, to ensure that the ENTRY state- 
ment does not occur within a DO loop. 

For FUNCTION and SUBROUTINE statements 

the program type is checked to ensure that 

it is unknown, thus indicating that no 

statement except an IMPLICIT statement has 
preceded it. 

The PRF entries for these statements are 
built in a temporary area, due to their 
variable length. The entries assembled by 
this routine are then copied into the PRF 

as permanent entries during Pass 2, in sub- 
routine SUBE2. 

The entry name is acquired and classi- 
fied. For the FUNCTION statement the type 
option is processed and coded if given. 
The dummy arguments are then scanned and 
entered into the PRF. The symbol table 
entries for each argument are flagged, and 
the symbol table pointers are entered into 
the storage class table. 

Appropriate diagnostics are printed if 
any source errors or incongruities are 

encountered. 



CEKBU 



CALL statement Processor (CALL) 



CALL analyzes and encodes the CALL 
statement . 

ENTRIES ; CALL has one entry point CCEKBUl) 
and no output parameters. 

EXIT: No output parameters, 

OPERATION : CALL first calls LABL to pro- 
cess the statement label, if one is pre- 



sent. CALL then generates a PRF entry for 
the CALL statement. Finally, the expres- 
sion scan routine (EXPR) is called to ana- 
lyze and encode the subroutine name and the 

arguments . 



CEKAL -- END Statement Processor (END) 

END performs the required processing for 
an END statement. See Chart BG . 



ENTRIES 



END has one entry point (CEKALl) 



and no input parameters. 
EXIT ; No output parameters. 



OPERATION; 



If the statement is the condi- 



tional statement of a logical IF statement, 
a diagnostic is produced and control is 
returned to the caller. If the program 
type is BLOCK DATA, the data flag is 
checked and control is returned to the 
caller. For all other conditions the 
executable flag and the DO loop level are 
checked. If the DO loop level is nonzero, 
enough end loop PRF entries are generated 
to reduce it to zero. Then the end loop 
for the false loop is generated. If the 
ISD option is on, the false loop is set to 
"unsafe." The no flow flag is checked to 
see if execution flow has been terminated. 
If it has not, a stop PRF item is 
generated. Finally, an end program PRF 
item is generated and control is returned 
to the caller. 

CEKAW — Declaration Statements, Pass 2 
(DCL2) 

DCL2 performs the housekeeping opera- 
tions and terminates the processing for the 
following declaration statements: COMMON, 
DIMENSION, EQUIVALENCE, EXTERNAL, NAMELIST, 
COMPLEX, DOUBLE PRECISION, INTEGER, LOGI- 
CAL, REAL, FORMAT, and DATA. 

ENTRIES : DCL2 has two entry points, C0MM2 
(CEKAWl) and DCL2 (CEKAW2) , neither of 
which has an input parameter. 

EXIT : No output parameters. 

OPERATION : DCL2 sets the program type to 
"main" if it was unknown. In any case, the 
implicit flag is set to 1 before returning 
to the caller. A special entry for the 
COMMON statement also updates the total 
number of named COMMON blocks in the 
storage class table before joining the path 
for other declaration statements. 

CEKAX — Executable Statements, Pass 2 
(EXEC2) 

EXEC2 performs the housekeeping opera- 
tions and terminates the processing for the 
executable statements. See Chart BH. 
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ENTRIE S: EXEC2 has two entry points, FL2 
CCEKAX2) and NF2 CCEKAXl) , neither of «^hich 
requires any input parameters, FL2 is the 
entry point for the following statements: 
assignment, ASSIGN, BACKSPACE, CONTINUE, 
END FILE, PAUSE, PRINT, PUNCH, REWIND, 
WRITE, DO, READ, and CALL. NF2 is ttie 
entry point for the following statements: 
STOP, RETURN, GO TO, and arithmetic IF. 

EXIT : No output parameters. 

OPERATION : EXEC2 has two entry points: 

1. For statements that do not transfer 
control to statements other than the 
ones immediately following them. 

2, For statements that do transfer con- 
trol to statements other than the ones 
immediately following. 

If the logical IF indicator is not on, 
the entry for the second class (above) 
raises the no-flow flag, indicating that 
the next executable statement must have a 
label or there is a logical flaw in the 
source program. The remaining operations 
are common to both entries. 

If the executable statement flag is 
down, it is raised and the program type is 
checked. If the program type is unknown, 
it is set to "main* before EXEC2 rettirns to 
the caller. If the executable statement 
flag was up, the fall- through processing 
routine is called to optimize the code in 
case fall-through occurs from any statement 
which causes branching. The logical IF 
indicator is then tested. If it is on, the 
created label for the conditional GO TO 
statement is entered into the PRF. The end 
loop processing routine is called to test 
for and process any end loops - 

CEKBJ — BLOCK DATA Statement, Pass 2 
CBLD A2) 

BLDA2 sets the program type for the 
BLOCK DATA Statement. 

ENTRIES ; BLDA2 has one entry CCEKBJl) and 

no input parameters. 

EXIT ; No output parameters. 

OPERATION : BLDA2 sets the program type 
code to BLOCK DATA and exits. 

CEKBP — IMPLICIT Statements, Pass 2 
CIMPL2) 

IMPL2 performs the final housekeeping 
for the IMPLICIT statement after it is 

accepted. 

ENTRIES ; IBfPL2 has one entry point 
C CEKBP 1) and no input parameters. 



EXIT : No output parameters. 



OPERATION ; IMPL2 copies the implicit type 
table back from a temporary hold area where 

it was updated by IMPL and sets the implic- 
it flag to 2. 



CEKBT — Subprogram Entry Statements, Pass 
2 CSUBE2) 

SUBE2 sets the program type code and 
Kakes the permanent PRF entries for the 
ENTRY, FUNCTION, and SUBROUTINE statements. 
See Chart BI- 



ENTRIES: SUBE2 has three entry points: 
ENrR2 CCEKBTl), FUNC2 C CEKBT 2) , and SUBR2 
CCEKBT3) ; none of which has input 
parameters . 



EXIT : No output parameters. 

OPERATION ; SUBE2 has a unique entry point 
for ENTRY, FUNCTION, and SUBROUTINE state- 
ments. For the ENTRY statement the niamber 
of entry points total is incremented. The 
FUNCTION and SUBROUTINE statements set the 
program type code to the appropriate value. 
The remaining operations are performed for 
all three of the possible statement 
entries. 

An end loop for the false loop is 
generated, after which the PRF entry is 
copied from its temporary area into the 
PRF. A new begin loop for a false loop is 
then generated, and the niimber of alternate 
returns total is updated. 



CEKBV^ — CALL Statement, Pass 2 CCALL2) 

CALL2 adjusts the CALL PRF entry to 
insert the statement numbers for the 
alternate returns. See Chart BJ. 

ENTRIES ; CALL2 has one entry point 
CCEKBVl) and no input parameters. 

EXIT ; No output parameters. 

OPERATION ; If the count of alternate 
returns in intercom CTENAR) is zero, a 
normal return is taken- If the count is 
nonzero, the PRF entries for the argument 
definition points and the CALL are moved up 
by the appropriate number of words. The 
statement numbers are then inserted in the 
CALL PRF entry. During the pass through 
the argument definition point PRF entries, 
the FDP fields in the symbol table are 
updated if required. The statement numbers 
are also entered into the cross reference 
list. 
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CEKBZ — Statement Function ':ef inition. 
Pass 2 CSTFN2) 

STFN2 performs the housekeeping opera- 
tions and terminates the processing for the 
Statement F sanction. 



The second stage (PUTOUT) translates the 
terms of TERMS into Polish notation and 
puts them in ERF. 



Each tentative output term of TTRM has 
the following format: 



ENTRIES ; STFN2 has one entry point 
(CEKBZl) with no input parameters. 



EXIT : No output parameters. 

OPERATION ; STFN2 restores symbol table 
class and flag fields of variables which 
were used as statement function arguments. 
It then checks the program type and, if it 
is unknown, sets it to "main." Then STFN2 
returns to the caller. 



CEKAG — Subscript Processor (SOBS) 

SUBS scans subscripted variables and 
translates the subscript expressions into 
the internal language C Polish notation) 
form- See Chart BK. 

ENTRIES ; SUBS has one entry point (CEKAGl) 
with no input parameters - 

EXIT ; No output parameters. 

OPERATION; A subscripted variable has the 
form; 

A. i ^1. f *^2 f • • • i "^H' 

where; 

, ±Cn*Vn 

SUBS expands the subscripts into a single 
expression of the form; 

S*L-L+32*L*di-L*dj. ^-. . - +Sn*I-*di^* . . - ♦dn^j. 
— Ii*djL* ... *dn^j_ 

where; 

L = length in bytes of an array element 
d = ith dimension of N-dimensional array 

Constant terms and like variable terms 
are combined, and the resultant expression 
is translated into Polish notation for out- 
put to the expression representation file 
CERF). 

SUBS operates in two stages. The first 
stage scans the source, term by term, and 
makes up tentative output terms which are 
stored in an area called TTRM- A subrou- 
tine called TRMPRO checks TTRM and adds the 
contents to a list (TERMS) if it cannot 
combine the new term with one already in 
TERMS. 



16 



Const-ant 



4-btt 
Type Code 



Symbol Table Pointer to 
Variable or 



4-bit 
Type Code 



Variable Dimension or 



^ 



^ 



4-bit 
Type Code 



Variable Dimension or 



If Induction Variable = ULEV; otherwise = 



Each entry of a term is one word, 
number of entries per term is 

NUMDM+1 

where : 

NUMDM = number of dimensions. 

A typical term of subscript S is 



The 



C *V ♦L*di*. . .♦d 



k i 



The "constant" entry is the product of all 
the constant factors of the term. The 
variable entry is the symbol table pointer 
to V , or to zero if V is missing from 
term. The variable dimension entries are 
symbol table pointers to any of the d (i = 
1, , K-1) that are variable. 

Terms of TERB^S have the same format as 
TTRM, except that all nonzero entries are 
moved to the top of a term. 

During the course of processing a sub- 
script, branches are made to NEWTRM, SCAN, 
and LOOP within the main loop of SUBS. 

NEWTRM updates the dimension product 
CDMPR) with an entry from dimension table, 
if the entry is a constant: otherwise; 
NEWTRM enters the symbol table pointer of 
the variable dimension in TTRM. NEWTRM 
then branches to SCAN. 
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SCAN puts DMPR in TTRi- and calls subrou- 
tine TRMPRO, which adds constant terms to 
offset of array name entry in, ERF or pro- 
cesses variable terms as explained earlier, 
SCAN then calls ACOMP (assemble component 
routine) for the next ope rand- operator 
pair, 

LOOP tests all operators that separate 
terms in a subscript expression. If a 
right parenthesis is found, LOOP branches 
to PUTOUT. If a comma is found, LOOP 
branches to NEWTRM. If a plus or minus 
sign is found, TNEG is set accordingly. 
LOOP then calls ACOMP. 

SUBS begins processing by entering the 
array name in ERF. Various flags and coun- 
ters are initialized, and a branch is made 
to SCAN. ACOMP is called, and a subscript 
term put in TERMS. If the term contains a 
loop variable, a new term is generated, 
containing the lower limit of the loop 
variable in place of the loop variable. A 
branch is made to LOOP to check the opera- 
tor. This process is repeated until the 
loop finds a right parenthesis which sig- 
nals end of subscript, and a branch is made 
to PUTOOT. 

If the statement ID is DATA or EQUIVA- 
LENCE, PUTOUT determines that there are no 
entries in TERMS. Otherwise, PUTOUT puts 

the entries from TERMS into the ERF. If a 
term, contains a loop variable, the variable 

is entered into ERF ahead of the constant. 
If the statement ID is EQUIVALENCE and 
dimension information from a TYPE, COMMON 

or DIMENSION statement had not yet been 

specified for an equivalence variable, SUBS 
processes each subscript on an equivalence 

variable, and saves the subscript and sign, 
if any, for subsequent processing oy EQUI. 



CEKAI — Expression Processor (EXPR) 

EXPR translates the source language 
expression into the ,internal language 

C Polish notation) expression. See Chart 
BL. 



ENTRIES ; EXPR has one entry point CCEKAIl) 
with no input parameters. 

EXIT ; No output parameters. 

OPERATION: Subroutine EXPR is the arith- 
metic and logical expression scanner, and 

produces in the Expression File CEF) the 
internal- language equivalent of a FORTRAN 
IV expression in the source program. EXPR 

scans expressions on the left and right 
side of equation statements, the condition- 
al expression in IF statements, and the 
subroutine name and a,rgument list in CALL 
statements. 



EXPR sees the source language through 
,ACOMP (assemble components) which provides 

EXPR with an ope,rand- operator pair (com- 
ponent) each time it is called. 

The internal-language expression is con- 
tained in EF as a string of operators 
(delimiters) and operands in right-hand 
Polish notation. An oversimplified state- 
ment, then, of EXPR's task is "to transfer 
operators from their position between their 
operands to a position following their 
operands." This implies that, in scanning 
over the source expression and putting the 
internal form in EF, an operator must be 
held back during the scanning and putting 
out of its second operand (which may be a 
large expression itself) . Two main tables, 
HSTCK and 3XS, are used by the subroutine 
largely for just this purpose. Each incom- 
ing operator is placed in the HSTCK until 
required for output. SXS contains informa- 
tion about the operands that have been put 
out. 

To oversimplify again, the syntax of 
algebraic expression requires that opera- 
tors and operands should alternate, as in 
"X+Y+Z-. This is reflected in EXPR in that 
the subroutine is always in one of two 
states, controlled by the condition of a 
cell HS. The H state means, roughly, that 
the last item scanned went into the HSTCK 
(i.e., was an operator) so an operand can 
be expected next. The S state means that 
the last item scanned caused an entry in 
SXS (i.e., was an operand) so an operator 
can be expected next. Clearly, the scan 
should begin in the H state and end in the 
S state. 



The situation is, in rea 
plicated by the presence in 
unary operators (such as th 
five .NOT.), function calls 
variables, and parentheses, 
cations are best described 
EXPR's methods for handling 
methods are variations on, 
of, the basic idea. 



lity, much corn- 
expressions of 
e logical nega- 
subscripted 

These compli- 
by examining 

them. These 
or elaborations 



The main loop of EXPR begins with a call 
on ACOMP for the next component of the 
source- language expression. The charac- 
teristics of the next component determine 
the processing it receives, after which the 
subroutine returns to the top of the main 
loop to obtain the next component. Some 
objects are illegal if received when the 
subroutine is in the H state; some are 
illegal in the S state; and, a few are le- 
gal in either state, but have their meaning 
determined by the state during which they 
arrive. Each object processed sets the 
state for the next. From this vie%rpoint, 
there are four classes of objects: H to S, 
those that are legal in the H state and 
leave the subroutine in the S state; H to 



€i4 



H,. those tnat are legal in tne H state and 
leave tHe subroutine in tne h state; S to 
S, those that are legal in the S state and 
leave the subroutine in the S state; and S 
to H, those that are legal in the S state 
and leave the subroutine in the H state. 

The two basic classes mO'St easily 
handled by EXPR are ri to S and S to ii. The 
other two classes handle the more compli- 
cated situations involving functions 
(except functions as arguments), and spe- 
cial operators (i.e., parentheses, unary 
operators, equal sign, and end of 
statement) . 

fl to S Class 

Constant ; When a constant item is 
received from ACOMP, a constant entry is 
made in EF and SXS with the appropriate 
type. 

S imple Variable : A simple variable is 
processed like a constant. 

Array Variable : When an array item is 
received, the next operator is checked for 
a left parenthesis. If one is not found, 
the array is treated like a simple vari- 
able. If the parenthesis is found, EXPR 
calls the subroutine SUBS, which processes 
the subscript and enters the array variable 
into EF. 



treatment. Comparisons include a check for 
illegal pairs. 

Table 13 explains operator precedence 
table, called PRECTAB. The operators that 
appear at the top of each column are the 
new it ears that can legally come from ACOMP. 
The operators that appear at the beginning 
of each row are the items that can appear 
at the top of HSTCK. Indexes to the action 
taken when a new item is compared with a 
iiSTCK item are given as elements of the 
table. The various actions taken are dis- 
cussed after the table. 



S to 



Class 



Right parenthesis and end of statement 
CEOS) are the only items which are received 
from ACOi^P is the S state and leave EXPR in 
the same state. See Table 13 for further 

discussion. 

H to H Class 

Left parenthesis, .NOT. , and unary + or 
- are the only legal operators that can be 
received from ACOWP in the H state. See 
Table 13 for further discussion. 

Explanation of PRECTAB 

DDl: 

Illegal operator pair. 



Function as Argument ; When a function DD2: 
item is received and is not the first item 
of a CALL statement, it may be a function 
used as an argument to another subprogram. 
The item is accepted as such if the next 
operator is either a comma or a right DD3: 
parenthesis, and the top item in HSTCK is a 
comma or semicolon (see function call in "H 
to H Class* below) . If the function is 
subject to automatic typing, it is checked, DDil: 
and the function name changed, if neces- 
sary, before outputting to EF and SXS. 

S to H Class 

This class contains the comma and all 
the binary operators: arithmetic, rela- 
tional, and logical. When an item for one 
of these operators is received by EXPR, it 
is compared with the top item of HSTCK. If 
this new item represents an operator of 
lesser precedence than the top item, the 
HSTCK operator is output to ZF and is DD5: 
appropriately processed. It is then 
removed from the HSTCK, and the new item is 
compared with the new HSTCK top item- This 
process continues until an item of less 
precedence is brought to the top of the 
HSTCK (the bottom of the HSTCK will always 
look like such an item) , at which point the 
new item is added to become the top item of DD6: 
the HSTCK, unless it is a comma or equal 
sign, in which case it receives special 



New operator has greater precedence 
than HSTCK item. New operator is put 
in HSTCK. 



New ) meets ( . Left parenthesis is 
deleted from HSTCK. 



New EOS meets =. This indicates that 
the right side of the equation state- 
ment has been processed. EXPR calls 
subroutine CNVRT, which uses the last 
two entries in SXS and EF to check for 
legal type mix and enters a conversion 
function in EF so that the expression 
type on the right side will conform to 
the variable type on the left side. 
If expression is a constant, it is 
converted to variable type. 



New = meets BOT. This indicates that 
the variable on the left side of the 
equation statement has toeen processed. 
The equation PRF entry is updated and 
the variable is linked into VDP chain. 
The = operator is put in HSTCK. 



New ) meets BOT. This indicates that 
an IF statement has been processed. 
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DD7: 

New EOS meets BOT. This indicates 
that a CALL statement has been 
processed. 

DD8 hMD DD9: 

New f meets ; or ; ; . This indicates 
that the first of several arguments 
has been processed. The . is put in 
HSTCK if, for intrinsic functions). 
Subroutine AAHG is called to determine 
if argument should oe linked into VDP 
chain. ARG type is put in SXS. 

DDIO: 

New , meets , or , , , This indicates 
that the N'th argument of a function 
call has been processed. Subroutine 
AARG is called Csee DD8) to check 
argument type, increment the argument 
count, and output, or ,, to EF. 

DDll and DD12: 

New ) meets . or ; . This indicates 
that the last argument has been pro- 
cessed (only one argument in function- 
call if HSTCK item is ;. Subroutine 
AARG is called Csee DD8 and DDIO). 
The correct number and type of argu- 
ments are checked. Functions with 
class LIBA call subroutine LIBN, v/hich 
selects a function name based on the 
argument type. Functions with class 
OPEN A use table FNUM to select a 
function number. The function is out- 
put to the EF followed by a j or ; ,• EF 
entry. 

DD13 through DD23: 

New operator has less or eq[ual prece- 
dence. This means that the HSTCK item 
is to be output to EF. The HSTCK item 
may be one of the following: 

Unary + or - or .NOT. operator. 
Binary arithmetic, relational, or 
logical operator. 

The unary +, -, and .NOT. are the 
simplest to output. The top item in 
SXS is their operand and is checked 
for legal type? then, the last EF 
entry has its sign changed for unary - 
and .NOT. 

For a binary arithmetic, relational, 
or a logical operator, the top two 
entries in SXS represent its operands. 
In addition to putting an operator 
item in EF, the processing requires 
replacing the two operands in SXS with 
a single entry for the result of the 
operations . 

The types of the operands are checked 
for legal combinations. The top SXS 
item is deleted, and the next SXS item 
is given a subexpression class with 



the maximum type of the two operands. 
A relational operator is assigned 

Logical* 4 type. 

A binary arithmetic operator is also 
checked for constant operands. If 
both SXS operand entries are class 
constant, the arithmetic called for by 
this operator will be done on the last 
two EF entries. The subroutine CNVRT 
does constant arithmetic and type 
checking for binary- arithmetic 
operators. 

If the HSTCK item is a -, .NE.,.LE. 
or .GE., it is changed to a +,.EQ.,. 
GT. or .LT., respectively, and the 
sign of the last EF entry is changed. 
Then the above processing is done. 



DD2tl: 



New , or ) meets SF. This indicates 
that an argument of a statement func- 
tion has been processed. EXPR calls 
subroutine SFEXP (at entry point 
SFEXPC) which continues processing the 
statement function expression. 



DD25: 



New ) meets MAX. This indicates that 
all arguments have been processed in a 
MAX/MIN function. The argument type 
is checked and the last MAX operator 
is put in EF. The top three bytes of 
the multiple byte entry for MAX/MIN 
function are deleted from HSTCK. The 
top item of HSTCK is now (, unary -, 
or a conversion function which was 
entered in HSTCK by the function- call 
processing. 

DD26: 

New , meets MAX. This indicates that 
an argument of MAX/MIN function has 
been processed. The argument type is 
compared with the type in HSTCK. If 
this is first argument processed, and 
automatic typing is called for, the 
argument type is put in HSTCK. The 
comma flag is set, and the sign of 
last EF entry is changed if the MIN 
flag is set. The MAX operator is put 
in EF, except after the first 
argument. 

Function/Subroutine Call 

A function call is recognized if one of 
the following conditions exists: 

1. The item is an external, intrinsic, or 
library function with the next item a 
left parenthesis. Six bytes are added 
to HSTCK. Bytes 1 and 2 contain Sym- 
bol Table pointer to function entry. 
Byte 3 contains type of arguments 
observed. Byte 4 contains number of 
arguments observed. Byte 5 contains 
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flag for argument definition PRFs (set 
to 1 if abnormal function) . Byte 6 
contains semicolon opera tor - 

For external functions, the ABN flag 
is set in the PRF entries for IF and 
equation statements. This flag is 
used by Phase 2 to find common defini- 
tion points. EXPR then calls ACOMP 
for the next component. 

The item is the first item of a CALL 
statement. The subroutine flag is 
raised in the symbol table, and the 
function is handled the same as case 1 
if the next item is a left parenthe- 
sis* If the next item is EOS, the 
function is entered in EF as a no- 
parameter function. 

The item*s class is "unknown" or 
"unknown function" and the next item 
is a left parenthesis. EXPR calls the 
subroutine FNCLS, which determines the 
class of the function (OPEN, OPENA, 
external, LIB, LIBA, or MAX). FNCLS 
sets the function flag and appropriate 
class in the symbol table and returns 
to EXPR. If the function class is 
external, library or intrinsic the 
function is processed like case 1. If 
the function is a member of the MAX- 
MIN family, it is processed as 
described in case 4. 

The item is a member of the MAX-MIN 
family. Members of the MAX-MIN family 
require special treatment. They are 
interpreted not as functions, but in 
terms of a new operator, MAX, which is 
like + in that it takes two operands 
and has its type determined by the 
type of its operands. MIN is ex- 
pressed by changing the signs of MAX 
and its operands. A conversion func- 
tion is entered in HSTCK per case 1, 
if needed; otherwise, a left parenthe- 
sis is put in HSTCK. Either of these 
HSTCK items will correctly terminate 
the MAX function processing after the 
last argument has been processed. A 
unary - is then put in HSTCK if func- 
tion is MIN. This will negate the 
last MAX operator in EF- The next 
HSTCK byte contains two flags: a MIN 
flag Cset if MIN function), and a 
comma flag (set after first argument 
processed) . The next byte contains 
argument type required by function (FS 
if automatic typing) . The top byte 
contains the operator MAX. EXPR then 
calls ACOMP for the next component. 

The item is a statement function. 
EXPR calls the subroutine SFEXP Cat 
entry point SFEXPI) , which initializes 

and controls the statement function 
processing. EXPR's machinery is used 



to process the statement function 
arguments. 



CEKAN — Conversion Subroutine (CNVRT) 

CNVRT converts constants to new type, if 
specified, and checks legal type mixes for 
arithmetic and logical expressions, and 
across the equal sign in assignment state- 
ments. See Chart BM. 



ENTRIES : CNVRT has two entry points: 
CNVRT (CEKANl), which is called by EXPR to 
perform all functions mentioned above, and 
CNVRTD (CEKAN2) which is called by IVAL and 
is concerned only with converting constants 
to the type of the variables into which 
they will be stored. 

Input Parameters ; 

P2 — Variable Symbol Table Pointer 

CCNVRTD entry only) 
P5 — HSTCK address (CNVRT entry only) 
P6 ^ — SXS address (CNVRT entry only) 

EXIT : P5 contains the HSTCK address, and 
P6 contains the SXS address. 

OPERATION ; The types of the top two 
operands in SXS, SXS (J) and SXSCJ+l), are 
compared by using the table CNVTAB, and 
appropriate action is taken. The action 
taken depends on whether the top HSTCK item 
is = or +, /, ♦ or ♦♦. 

If the HSTCK item is =, then SXS (J) is 
the operand on the left side in an assign- 
ment staten^nt or a variable of a DATA 
statement, and SXS ( J+1) is converted to the 
type of SXSCJ), if they are different. If 
SXSCJ+l) is a constant, CNVRT converts the 
constant, and files the new constant in the 
symbol table and EF. If SXSCJ+l) is not a 
constant, the appropriate conversion func- 
tion is entered in EF. Symbol table and EF 
entries are not made for DATA statement. 

If the top HSTCK item is an arithmetic 
operator (except**) , the two operands are 
checked to see if they are constant. If 
just one operand is constant, it is con- 
verted to the maximum type of the two, if 
different. If both operands are constant, 
one is converted to the maximum type, if 
different, and subroutine ARITH is called. 
It combines the constants according to the 
HSTCK operator. The new constant is filed 
in the symbol table and EF. A special case 
occurs if the operand types are R*8 and 
C*8. The maximum type in this case is 
C*16, and all constants are converted to 
this type. 

There are three cases to consider if the 
HSTCK item is: 
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1. Both exponent and base are constant. 

2. The base is a ireal or integer variable 
and the exponent is an integer con- 
stant in the range through 16 for 
integer base, or -16 through ^-16 for 
real base. 



CEKBK — Statement Function Definition 
(SFDEF) 

SFDEF enables EXPR to translate a state- 
ment function expression into Polish nota- 
tion and to store the translated expression 
in the statement function expression file 
CSFEF). See Chart BN. 



3. Neither of the above cases. 

For case 1, the ^subroutine a.rith is 
called and constant' arithmetic is 
perf ormed- 

For case 2, a series of one or more spe- 
cial open functions are entered in the EF 
from a table called EXPF (Table !«♦) . This, 
in effect, causes the power to be expanded 
as a series of products of the base multi- 
plied by itself. Another special open 
function CRECIP) is also entered in EF, to 
take the reciprocal of the power if the 
exponent is negative and the base is real. 

For case 3, the subroutine LIBN is 
called Cat entry point LIBNX) *hich selects 
the appropriate exponential library func- 
tion. Upon return from LIBN, the function 
is entered in the EF. 



ENTRIES ; SFDEF has one entry point 
CCEKBKl) with P5 = HSTCKCI) address and P6 
= SXS(J) address as input parameters. 



EXIT ; P5 contains the HSTCK address, and 
^6 contains the SXS address. 

OPERATION ; SFDEF scans the argument list 
and temporarily changes the class and flag 
fields of all symbol table entries whose 
names are the same as the dummy arguments. 
The class is changed to "statement function 
argument" and the flag field to contain an 
offset to be used in locating the argument 
in ARGSTCK (see SFEXP routine). These 
fields are restored after EXPR finishes 
scanning the expression. In scanning the 
argument list, SFDEF checks for legal argu- 
ments and maximum number of arguments . 
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After completion of argument scanning, 
SFDEF alters the EF pointer and base, so 
that EXPR will enter the expression into 
SFEF. SFDEF then returns to EXPR, which 
processes the statement function expres- 
sion. Upon completion of expression pro- 
cessing, the EF pointer and base are 
restored. 



CEKBX 



CEKBL 



Statement Function Expansion 



CSFEXP) 

SFEXP inserts a statement function 
expression into EF when the function is 
referenced in arithmetic or logical expres- 
sion, and uses EXPR to process toe actual 
arguments. See Chart 30. 



Function Classifier (FNCLS) 



FNCLS determines the proper class of a 
function whose class was originally 
"unknown" or "unknown function." See Chart 
BP. 



ENTRIES ; FNCLS has one entry point 



CCEKBXl) and no input parameters. 



EXIT : No output parameters. 



OPERATION: 



A function with "unknown" or 



"unknown function" class is assigned one of 
the following classes: LIBA, LIB, OPEN, 
OPENA, MAX, or external. 



ENTRIES : SFEXP has two entry points: SFE- 
XPI CCEKBLl) and SFEXPC CCEKBL2). The 
input parameters are P5 = HSTCKCI) address 
and P6 = SXSCJ) address. 



EXIT : P5 contains the HSTCK address, and 
P6 contains the SXS address. 

OPERATION : There are two entry points to 
SPEXP: SFEXPI, which is the entry, to the 

initializing portion, and SFEXPC, which is 
the entry to the expansion portion. 

The initializing part scans the argu- 
ments and stores a pointer to the first 
character of each argument in the source 
statement. It also stores a pointer (SFEP) 
to the function expression in SFEF, and a 
pointer to show EXPR where to resume scan- 
ning the source after the statement func- 
tion has be&i expanded. These pointers are 
stored in a portion of the SFEF called 
ARGSTCK. An "SF" item is entered in HSTCK, 
which enables EXPR to process the function 
arguments one at a time. After the ini- 
tializing is complete, SFEXP begins expand- 
ing the function by entering SFEF entries 
into EF, using SFEP as a pointer- When a 
statement function argument entry is found, 
the offset of this of this entry is used to 
obtain the correct argument pointer from 
ARGSTCK. This pointer is stored in SOURCE, 
and SFEXP returns to EXPR, which processes 
the argument. When a ", " or ")" meets the 
"SF" item in HSTCK, the argument has been 
processed and EXPR calls SFEXP (via SFEXPC 
entry) . SFEXP checks the actual argument 
type with the dummy argument type. If the 
type is correct, SFEXP resumes transferring 
SFEF entries to EF until another argument 
entry is found. This cycle is repeated 
until an end of expression entry is found 
in SFEF. This terminates expansion, and 
SFEXP returns to EXPR with the SOURCE 
pointer set to scan the remainder of the 
statement following the statement function 
reference. 



If the function name is found in the 
LIBA name list (library function with auto- 
matic typing) and its type is not frozen, 
it is given LIBA class. If its type is 
frozen, then it is classed external. 



If the function name is found in the LIB 
name list, and its type is not frozen or 
its type is the same as the library func- 
tion, then it is classed LIB. If the type 
is different, it is classed external. 

If the function name is not in the LIBA 
or LIB name lists and its class is unknown 
function (i.e., del cared in an EXTERNAL 
statement) , it is classed external. 

If the function is in the intrinsic 
function name list (includes OPEN, OPENA, 
and MAX class functions) , and its type is 
not frozen or its type is the same as the 
intrinsic function, then the symbol table 
name part of the function is linked to the 
intrinsic function descriptive part. If 
the function type is different, it is 
classed external. 

If the function name is not found in any 
of the three lists, LIBA, LIB, or intrin- 
sic, it is classed external. 



CEKBY — Library Function Selector (LIBN) 

LIBN selects the appropriate library 
function name, based on the argument type. 
See Chart BQ. 



ENTRIES ; There are three entry points: 
LIBN (CEKBYl), LIBNA (CEKBY2) , and LIBNX 
(CEKBY3). P = SXS (J) address is the input 
parameter - 



EXIT: 



P6 contains the SXS address, 
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OPERATION: 



LIBN has three entry points. 



LIBN, LIBNA, and LIBNX. LIBN and LIBNA are 
the entry points for functions with auto- 
matic typing. LIBN A is tne entry for auto- 
matic functions being used as arguments. 
LIBNX is the entry point for exponential 
library function selection. 

Using the argument type and the function 
index, the proper function name is selected 
(see Table 15). The function name is 
inserted in the symbol table, and the 
descriptive part entries filled if class is 
unknown. 



Table 15. Library Function Names 



Argument Type 






J. -J. — ..^. 

I Automatic I 

I Function |- t t— t 

I Name | R*4 | R*8 | C*8 | C*16 

EXP I EXP I DEXP I CEXP | CDEXP 

LOG 1 ALOG I DLOG | CLOG I CDLOG 

LOGIO I ALOGIOI DLOGIO| CLOGIO| CDLOGIO 

ATAN 1 ATAN | DATAN | | 

SIN I SIN I DSIN I CSIN |CDSIN 

COS I COS I DCOS I CCOS ICDCOS 

SQRT 1 SQRT \ DSQRT | CSQRT | CDSQRT 

TANH I TANH | DTANH 1 | 



P2, P3 — Integer Constants 

FO, F2 — Real Constants 

FO , F2 — Complex Constants of 

type C*8 
FO thru F6 — Complex Constants of 

type C*16 

EXIT ; No output parameters. 

OPERATION ; If the operator is *♦ , the 
appropriate FORTRAN library function is 
called, based on the type of the base and 
exponent. If the operator is +, ♦, or /, 
ARITH does the arithmetic necessary based 
on operator and operand type. 

ARITH may be called upon to perform 
arithmetic which will cause overflow or 
divide check exceptions to occxir. In order 
to diagnose these situations properly, sys- 
tem macro SIR is called to enable module 
CEKCS to trap these interruptions and set 
appropriate flags. Prior to exit, system 
macro instruction DIR is called to disable 
these interruptions. 



CEKCG 



Term Processor CTRMPRO) 



TRMPRO processes a tenative subscript 
term prepared by SUBS and either combines 
it with a previous term or adds it to the 
TERMS list. See Chart BS. 

ENTRIES ; TRMPRO has one entry point 
CCEKCGl) , with the address of TTRM and 
TERMS in P5 as input parameter. 



i. :± J X- . X- 

Implicit Exponential Functions 
^ -| EXIT ; There is a single output parameter: 



Exponent Type 



Base I 

Type I- • T T- T 

I 1*2 I 1*4 I R*4 I R*8 

1*2 I FJXPJ I FJXPI I FJXPR IFJXPD 

1*4 1 FIXPJ I FIXPI I FIXPR IFIXPD 

R*t» I FRXPJ I FRXPI I FRXPR | FRXPD 

R*8 I FDXPJ I FDXPI | FDXPR | FDXPD 

C*8 I FCXPJ I FCXPI I I 

C*16 I FCDXJ I FCDXI | | 

_X X X ^«_x, 



the address of TERMS in P5. 

OPERATION ; If the tentative term has no 
variable factors, its constant factor is 
combined with OFFSET. If the tentative 
term has the same variable factors as a 
previous term already in TERMS, the terms 
are combined by adding their constant fac- 
tors. Otherwise, the tentative term is 
added to TERMS as a new terra. 

TRMPRO checks for too large a subscript 

expression. 



L X X 



^—j J 



CEKCR 



CAARG) 



Actual Argument Service Routine 



CEKCB — Constant Arithmetic Subroutine 
CARITH) 



ARITH performs all constant arithmetic. 
See Chart BR. 



ENTRIES ; ARITH has one entry point 
CCEKCBl) with input parameters as follows: 



AARG performs certain functions in con- 
nection with actual arguments of function 
and subroutine calls. See Chart BT. 

ENTRIES : AARG has one entry point CCEKCRl) 
and two input parameters; the address of 
last HSTCK entry in P5, and the last SXS 

entry in P6. 

EXIT ; P5 contains the address of HSTCK, 
and P6 contains the address of SXS- 
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OPERATION : 'AARG pots an argument, defini- 
tion entry in the PRF_ for a variable as 
argument of an abnormal r^ubprogram,. If 
this is not the first argument (comma flag 
up), the type is checked and a comina (,) or 
double comma C,,) operator is put out to 
the EF, 



CEKCS 



Constant Arithmetic Interrupt 



C CHKINT) 

CHKINT provides for treatment of inter- 
ruptions from ARITH and sets flags for 
issuance of a proper diagnostics. See 
Chart BU, 

ENTRIES ; This routine is called by the 
standard liBkage convention. There are 



three entry points: 

CEKCSl — • Set flag for divide 
check interruptions 

CEKCS2 — Set flag for exponent 
overflow interruptions 

CEKCS 3 -- Return flags 
(CHKINT) to caller 

Entry CEKCS3 returns the interruption 
flags to the fields specified in the param- 
eter list, which is one word long and con- 
tains the address at which to store the two 
flag words. No other input or output pa- 
rameters are used, 

EXIT ; No output parameters. 

OPERATION ; The CHXINT routine is called by 
ARITH to enable and disable CEKS, for 
fielding of exponent overflO'^ and divide 
check interruptions during constant arith- 
metic» Any interruptions due to divide 
checks or exponent overflow cause the sys- 
tem interruption processor to enter CHKINT 
at entries CEKCSl or CEKCS2, where a flag 
will be set, indicating that an interrup- 
tion has occurred. On an exponent over- 
flow, the contents of the Rl register in 
the ISA save area is set to infinity before 
exiting - 

This routine is called at entry CEKCS3 
by EXPR after a complete expression has 
been processed, to see if any of the above 
interruptions occurred. 

CE KAB ■ — Extract Source Character (ESC) 

ESC is used to obtain the next source 
character. See Chart BV. 

ENTRIES ; There are two entry points; ESC 
(CEKABl) returns the next nonblank source 
character; ESCB CCEKAB2) returns the next 

source character, including blanks. One 
input parameter, the address of the next 
available character in the source string, 
is passed by value in parameter register 
P3« The high-order 24 bits of parameter 



register PI are expected to be zeros. This 
routine uses only registers PI, P2, and P3. 
The contents of any other registers except 

the linkage registers are not destroyed. 



EXIT: Output parameters are: 

1. Original source character, in register 
PI. 

2- Internal code source character, in 
register P2. 

3. Updated source pointer, in register 
P3. 



OPERATION: 



Input source data stored in the 



compiler intercom region is transmitted to 
the requesting routine, one character at a 

time. As each source character is 
extracted from the source input data, a 
translation is made from either EBCDIC or 

BCD character codes. This translated 
character set is a dense set value and is 
used for identification purposes only- The 
original character set is used for variable 
names in the symbol table and preset data 
in the object program. Values of the dense 
set are as follows: 



Character 


Dense Code 








1 


1 


2 


2 


3 


3 


4 


i| 
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5 
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10 
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11 
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12 
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13 
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14 
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16 


H 


17 
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19 
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20 
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21 
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22 
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23 





24 
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T 


29 
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30 
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31 


i^r 
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X 


33 
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34 
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35 
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36 
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^ 37 


+ 


38 


- 


39 


/ 


40 
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^1 


(Not Used) 


42 
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43 


§ 


44 
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45 


( 


46 


EOS 


47 


• 


48 


f 


49 


(Not Used) 


50 


fe 


51 


Others 


52 



CID 


CTYP 


CFLG 


r — ""■ ■■" 

CLNG 


CSTP 


CHSH 


CDLM 


CVAL 


A 




A 






V ' 




V 




CVAL (Cont.) 



CEKAE — Assemble Components CACQMP) 

ACOMP assembles source characters into 
basic components for syntactical analysis. 
See Chart BW. 



ENTRIES: ACOMP has one entry point 
CCEKAEl) with no input parameter. 



EXIT: No output parameters. 



OPERATION ; Each request for next com- 
ponents returns an operand and the operand 
delimiter. The possible operand types are 
variable, constant, label, and null- The 
delimiter may be any of the arithmetic, 
logical, or relational operators, the right 
or left parenthesis, the comma, the end-of- 
statement, or the label terminator 
delimiter. 



The assembled elements are placed in the 
component storage area of intercom (see 
Figure 17). Source characters, both origi- 
nal and converted forms, are acquired by 
request to the extract source routine. The 
converted internal code is used as an index 
into the assemble components character 
table (see Table 16). By branching upon 
the value derived from the components 
character table, using the decision table 
status as the base, the appropriate action 
may be effected (see Table 17). 



As variables are assembled, a symbol 
table hash index from the variable hash 
table is derived for use by INVST in filing 
the name in the symbol table. 



As constants are assembled, their type 
is determined and appropriate filing rou- 
tines invoked. 



Figure 17 . Component Storage Area 

Legend for Figure 17 

Field Description 

CID Component ID: 

Null = 

Variable = 1 

Constant = 2 

Label = 3 



CTYP 



Operand Type Code in Hexadecimal 
Unknown = 00 



Unknown 
Integer +2 
Integer +4 
Real ^4 
Real *8 
Complex ♦S 
Complex *16 
Logical *1 
Logical *4 
Literal 



12 
32 
33 
73 
74 
F4 
01 
31 
02 



CFLG 
CLNG 

CSTP 
CHSH 
CDLM 



Flags 



Length of CVAL in bytes 
(maximum = 256) 

Symbol Table Pointer for Operand 

Variable Hash Total 

Component Delimiter Code 



+ 


= 





- 


= 


1 


/ 


= 


2 


* 


= 


3 


*♦ 


= 


4 


) 


= 


5 


§ 


= 


6 


= 


= 


7 


( 


= 


8 


EOS 


= 


9 


.LT. 


= 


10 


.LE. 


= 


11 


-EQ. 


= 


12 


.NE. 


= 


13 


.GE. 
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«GT. = 15 

.NOT. =16,^ 

.AND. = 17 

•0R« = 18 

a =19 (Label Delimiter) 



CVPkL Component Operand 
Name 



Value or 



Table 16« Assemble Components Character 
Table 



EXIT : No output parameters. 

OPERATION ; IVST uses the name hash value 
to select a chain anchor in the variable 
hash table. If the chain is not empty, the 
chain entries are searched for one with the 
present name. If the chain is empty or an 
entry is not found, a new entry is made for 
this name and added to the chain. The sym- 
bol table descriptive part pointer for tne 
found or made entry is set in CSTP . 



t Internal Code j Component Code | CEKCN — Decimal to Binary Integer 
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l™-9 
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7 








& 
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/ = 


= C ) , EOS 
Others 




9 
10 




L 






L____ 




_- ^-j 



CEKCe 



File Real Constant (FLRC) 



FLRC files real and complex constants in 
the symbol table. See Chart BX. 

ENTRIES ; FLRC has one entry point CCEKCHl) 
ani no input parameters. 

EXIT ; No output parameters. 

OPERATION ; FLRC calls FCN¥ to convert the 

constant to floating binary. If the con- 
stant is not part of a complex constant and 

the "don't file" flag is down, the constant 
is filed in the symbol table. 

If the constant is the real part of a 
complex constant, the value is saved and 

the routine returns to the caller. If the 
constant is the imaginary part of a complex 
constant, the real and imaginary parts are 
combined as a single constant. If the 
"don't file* flag is down, the real and 
imaginary parts are also filed in the sym- 
bol table - 

Appropriate diagnostics are generated if 
the typ^ of the two parts of a complex 
constant do not agree. The parts are made 
to agree with the larger type. 

CEKCI — Insert. Variable in Symbol Table 
(IVST) 

IVST finds or makes a symbol table entry 
for an alphameric name. See Chart BY. 

ENTRIES ; IVST has one entry point CCEK- 
CIl) , with no input parameters. 



Conversion CICNV) 

ICNV converts a decimal integer to a 
binary integer. See Chart BZ. 

ENTRIES : ICNV has one entry point (CEKCNl) 
and no input parameters. 

EXIT ; No output parameters. 

OPERATION ; ICNV performs the conversion by 
extracting the digits from left to right, 
multiplying the intermediate value by 10 
for each digit, and adding that digit to 
the intermediate value. A maximum of 16 
digits is allowed, and the result is a dou™ 
bleword binary integer. The first word of 
the result is placed in the second word of 
CVAL, and the second word of the result is 
placed in the first word of CVAL. 

CEKCP — Decimal to Floating Binary 
Conversion (FCNV) 



FCNV converts a decimal constant to 
floating binary. See Chart CA. 

ENTRIES ; FCNV has one entry point CCEKCPl) 
and no input parameters. 

I EXIT ; No output parameters. 

OPERATION ; FCNV calls ICNV to convert the 
decimal digits to a binary integer. This 
integer is then converted to floating point 
and normalized. The number is then scaled, 
to account for the exponential and frac- 
tional portions. Appropriate diagnostics 
are generated if the exponent and magnitude 
ranges are exceeded. 

CEKCQ — File Integer Constant (FLIC) 

FLIC files integer constants in the sym- 
bol table. 

ENTRIES ; FLIC has one entry point 
(CEKCQl) . 

EXIT ; No output parameters. 

OPERATION ; FLIC calls ICNV to convert the 

constant to integer binary. If the "don't 

file" flag is down, the integer is then 
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Table 17. Assemble 



S 
T 
A 
T 
U 
S 



Components 



Table 




filed in the symbol table. A diagnostic is 
generated if the constant exceeds l^^-l, 

CEKBA — Begin Loop Processor CBGNLP) 

BGNLP analyzes and encodes the begin 
loop information for the DO statement and 
for implied loops within an I/O list. See 
Chart CB. 

ENTRIES : BGNLP has one entry point (CEK- 
BAl) and no input paran^ters. 

EXIT ; No output parameters. 

OPERATION ; BGNLP begins by making a call 
on ACOMP to acquire the induction variable 
for the loop. If the characteristics of 
the induction variable are satisfactory, 
flags are set to indicate the special use 
of this variable for the duration of the 



loop. Calls are then made on subroutine 
CKLIM to acquire, analyze, and appropriate- 
ly code the lower loop limit, upper loop 
limit, and the loop increment, if present- 
If the loop increment is not given, the 
pointer for integer 1 is supplied. A non- 
source label is created and filed in the 
Symbol Table for the loop top, and the 
begin loop PRF entries are generated. 

Appropriate diagnostics are printed if 
any source errors or incongruities are 
encountered . 



CEKBB — End Loop Processor CENDLP) 

ENDLP encodes the end loop entries for 
explicit loops specified by a DO statenent 
and for implied loops within an I/O list. 
See Chart CC. 
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ENTRIES : ENDLP has one entry point 
CCEKBBl) and no inpot parameters. 

EXIT ; No output parameters. 

OPERAriON : The end loop PRE entry is 
generated, and successive calls for the 
four loop parameters are made on subroutine 
CLLIM- If the loop parameter is a vari- 
able, CLLIM determines whether this is the 
lowest loop in which .j-|^ is active. If it 
is, CLLIM clears the symbol table flags and 
indicators which distinguish the variable 
for the duration of a loop. 



OPERATION : lOLST makes two scans over the 
list eletnents. The first scan detects and 
codes the presence of any implied loops. 
The second pass classifies the variables 
Cif required), generates the EF and PRE 
entries, and generates the begin and end 
loop entries, as required. The I/O trans- 
mission and end transmission library rou- 
tine entry names are filed in the symbol 
table and marked as class external. 

Appropriate diagnostics are printed if 
any source errors or incongruities are 

encountered. 



CEKCJ — Check Limits CCKLIM) 

CKLIM checks DO loop parameters for 
validity. See Chart CD. 

ENTRIES: CKLIM has one entry point 
C CEKCJ 1) and one input parameter: symbol 
table pointer to loop induction variable in 
PI- 
EXIT: No output parameters. 

OPERATION : For each lower limit, upper 
limit, and increment of a DO statement or 
I/O loop, CKLIM verifies that the limit is 
either a variable or constant integer. For 
a variable the symbol table entry is marked 
to indicate the level of end loop at which 
the unredef inable property of a loop limit 
should be terminated- 



CEKCD 



Format Label Processor for I/O 



Statements (FLABL) 

FLABL processes a FORMAT statement num- 
ber, as used in an I/O statement. See 
Chart CF. 



ENTRIES: 



FLABL has one entry point 



CCEKCDl) and no input parameters. 



EXIT ; No output parameters. 

OPERATION ; FLABL checks the label, files 
it in the symbol table, and fills in the 
LABF field in the PRF entry being built. 



CEKCE — Read Transfer Processor for I/O 
Statements CRTRAN) 



CEKCK — Clear Limits C CLLIM) 

CLLIM removes information from the sym- 
bol table entries for loop parameters at 

the loop end. 

ENTRIES ; CLLIM has one entry point 
CCEKCKl) and one input parameter: symbol 
table pointer to loop parameter in P2. 

EXIT ; No output parameters. 



OPERATION: 



For a variable loop parameter. 



if the loop being ended is the outermost 
loop in which this variable is a parameter, 
CLLIM clears the ULEV field and lowers the 
"must not be defined* flag in the variable 

symbol table entry. 



CEKBW 



I/O List Processor ( lOLST) 



lOLST analyzes and encodes the list ele- 
ments for READ, WRITE, PRINT, and PUNCH 

statements. See Chart CE. 



RTRAN processes ERR and END labels, as 
used in I/O statements. See Chart CG . 

ENTRIES: RTRAN has one entry point CCEK- 
CEl) , with no input parameters. 

EXIT ; No output parameters. 

OPERATION; RTRAN performs the necessary 
checking and sets the PRF entry fields for 
the error (ERR) and end of file (END) con- 
dition transfer labels. 



CEKCF 



FORMAT or NAMELIST Name Processor 



CFNAME) 

FNAME processes variable FORMAT designa- 
tors or NAMELIST names, as used in I/O 
statements. See Chart CH. 

ENTRIES : FNAME has one entry point 
CCEKCFl) , with no input parameters. 

EXIT: No output parameters. 



ENTRIES : lOLST has one entry CCEKBWl) and 

no input parameters. 

EXIT ; No output parameters. 



OPERATION; For a namelist name FNAME sets 
the ID and LABN fields in the PRF entry 
being built. For a variable FORMAT, FNAME 

sets the 'LABF field. 
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CEKAH — Initial Value Data Specification 
Processor (IDATA) _ 

IDATA analyzes and encodes initial value 
data for the type (integer, real, complex, 
and logical) and DATA statement processors - 
See Chart CI. 



CEKAF ~~ Array Dimension Specification 
Processor (ARDIM) 

ARDIM analyzes and encodes the dimension 
specifications for an array, when encoun- 
tered with a DIMENSION, COMMON, or type 

statement. See Chart CK. 



ENTRIES : IDATA has two entry points, TDATA 
CCEKAHl) and DDATA CCEKAfl2) , for calls by 
the type and DATA statements processors, 
respectively. The input parameter for 
TDATA is a symbol table pointer for the 
variable in parameter register P2 . The 
input parameters for DDATA are a parameter 
list address in param,eter register P2 and 
the number of items in the parameter list 
as fullword, right- justified binary value 
in parameter register PI. The parameter 
list is made up of 2-word items. The first 
word is a symbol table pointer, and the 
second word is a fullword offset value. 



EXIT ; No output parameters. 

OPERATION : IDATA has two entry points, one 
for calls by the type statements and one 
for calls by the DATA statement. After 
initialization, each entry point calls on 
internal subroutine IV AL, which processes 
the actual value specifications. 

Appropriate diagnostics are printed if 
any source errors or incongruities are 
encountered. 



ENTRIES : ARDIM has one entry point CCEKA- 
FA) and one input parameter. The symbol 

table pointer of the array name is required 
in parameter register P2 . 

EXIT : ARDIM returns with parameter regis- 
ter P2 unchanged. No other parameters are 

returned. 

OPERATION : If the array name class is 
"unknown" or "simple variable," it is 
changed to "array variable," and the dimen- 
sion values are scanned- If the class is 
already array variable, the source charac- 
ters, through the next right parenthesis, 
are spaced over before ret:urning to the 
caller. 

The dimension values may be either 
integer constants or integer variables. If 
they are constants, the appropriate dimen- 
sion table entry is made, depending upon 
whether the array name is a subprogram 
argument. If they are variables, the 
dimension values and the array name must 
both be subprogram arguments. If so, the 
symbol table flags are appropriately set to 
reflect the use of this variable as a vari- 
able dimension, and a dimension table entry 
for a variable dimension is made. 



CEKCL — Initial Value Processor CIVA L) 

IVAL processes constants used as initial 
values in Type or DATA statements. See 
Chart CJ. 

ENTRIES : IVAL has two entry points, IVAL 
CCEKCLl) and IVALl CCEKCL2) • Input parame- 
ters are the symbol table pointer of vari- 
able in P2 and the current preset data top 

in P6. 

EXIT : Output parameters are 

P5 = if constant not entered into data 
table 
= 1 if constant successfully entered 
into data table 
P6 = Opdated Preset Data Top 

OPERATION : IVAL first checks the variable 
to which the initial value is being 
assigned and opens the preset data entry. 
It then joins with entry point IVALl to 

process the initial data. If a repetition 
factor is present, it is converted and 

placed in the preset data entry. The ini- 
tial value constant is then processed, con- 
verted, and added to the preset data entry. 



CEKCC 



Label String Processor CLBSTR) 



LBSTR processes a string of labels, as 
encountered in assigned and computed GO TO 
instructions. See Chart CL. 

ENTRIES : LBSTR has one entry point (CEKC- 
CA) and one input parameter: P2 contains 
the PRF address of the line number field of 
the PRF entry being formed. 

EXIT ; Output parameters are 

P2 = contains the source character fol- 
lowing the right parenthesis of 
label string. 

P3 = contains the PRF address of the 
last label added. 

P4 = contains the count of the number of 
labels in the string. 

OPERATION ; For each label ACOMP is called 
for the label value. The value is checked 

and added to the PRF entry being built. 
When a right parenthesis is found, LBSTR 

returns. 
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CEKAC — ■ Statement of Identification CSID) 

SID is used to identify the type of 
sotirce statement. See Chart CM. 



ENTRIES : SID has one entry point (CEKACl) , 
and no input parameters are required. 

EXIT : One output paran^ter, the statement 
ID number, is returned in parameter regis- 
ter P2. 

OPERATION: An initial recognition is made 
to identify the statement as either an 
assignment or a nonassignment statement 
(see Table 18). A precedence table (Table 
19) is used, from which new status values 
are extracted and used for branching. Non- 
assignment statements are analyzed further, 
until a unique identification is made. 
This is done in two steps. First, the 
first two characters of the name are 
matched against List 1 (see Table 20). If 
this does not yield a unique identifica- 
tion, the first four characters of the name 
are matched against List 2 Csee Table 20) • 
The resulting ID numbers are shown in 
Table 21. 



Table 18. Assignment /Nonassignment 
Character Table 

^ . , ^_ ^ ^ ^ 

I Internal Code | Identification Code | 



h 



1 A~G 


! 2 


1 H 


1 1 


1 I 


1 2 


1 J-K 


1 


1 L 


1 2 


1 M 


1 


1 N 


2 


1 o 


1 


1 P 


2 


1 Q 


1 


1 R-S 


2 


1 T-V 


1 


t ^ 


1 2 


1 x-z,$ 


1 


1 0-9 


3 


1 C 


4 


1 > 


5 


1 t 


6 


j = 


7 


1 EOS* 


8 


f * 


10 


1 All Others 


9 



H 



|. X 

I ♦EOS - End of Statement 



CEKAJ — Statement Label Processor (LABL) 

LABL processes the statement label and 
determines if any loops are ended. See 
Chart CN. 

ENTRIES ; LABL has one entry point (CEKA- 
JA) , with no input parameters required. 

EXIT ; No output parameters. 



OPERATION: LABL checks to ensure that the 
statement to be processed is not a condi- 
tional statement of a Logical IF and is not 
inside a BLOCK DATA program. If this is 
the case, the label is converted to its 
binary value. If the statement is in a 
BLOCK DATA program or is a conditional 
statement of a Logical IF, an error message 
is produced, and the scan is terminated. 



Table 19. Assignment/Nonassignment Precedence 

r T T r T T T 

ID 
Code 



I 



Table 
6 



S 
T 
A 
T 
U t- + + + 






h 



I- f 

6 
(. 

7 



10 I 10 






I 



I 



8 



_+ + + + + +_ 



8 I 8 I 5 I 8 
8 I 8 I 8 I 



+ + + ^.- 

7 1 7 I 7 I 
i. X X- 



+ +— 



10 



I 
10 I 
+- 



7 
+ 

10 

+ 

7 



+- 



+- 

3 I 
+- 

3 I 
+- 

3 I 
+- 

8 I 



__+ + ^ — 

8 



8 
+ 

8 
+ 

8 
+ 

9 

+ 

9 



I 
11 I 

+- 

8 I 



+- 

I 

10 I 
1. 

8 I 



10 
10 



8 I 
+- 

8 I 
+- 

8 I 
+- 

8 I 

+- 

9 I 



3 I 

f 

3 I 
+ 

3 I 
+ 

8 I 
+ 

9 I 
X. 



^ 

8 

8 

8 I 

H 

8 I 
9 



8 - Nonassignment Exit 

9 - Assignment Exit 

10 - Error Exit 

11 - Blank Statement 
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Table 20. Nonassignment Type Statement 
Identification 



CEKBQ 



Fallthrouqh Determination CFALTH) 



-■ T- 



List 1 



IF 
GO 
DO 
CO 
WR 
RE 
FO 
CA 
DI 
AS 
NA 
EQ 
LO 
IN 
IM 
EX 
EN 
BA 
SU 
FO 
PR 
PU 
BL 
DA 
ST 
PA 



List 2 



h 



READ 

END Eos 

COMM 

RETU 

REWI 

CONT 

ENDF 

REAL 

COMP 

ENTR 

DOUB 

I ♦ Not unique 



Stateitent Name 

IF 
GO TO 

WRITE 

FORMAT 

CALL 

DIMENSION 

ASSIGN 

NAMELIST 

EQUIVALENCE 

LOGICAL 

INTEGER 

IMPLICIT 

EXTERNAL 

BACKSPACE 

SUBROUTINE 

FUNCTION 

PRINT 

PUNCH 

BLOCK DATA 

DATA 

STOP 

PAUSE 



Statement Name 

READ 

END 

COMMON 

RETURN 

REWIND 

CONTINUE 

END FILE 

REAL 

COMPLEX 

ENTRY 

DOUBLE PRECISION 



# Characters 
in Name 

2 
4 



6 
4 
9 
6 
8 
11 
7 
7 
8 
8 

9 
10 
8 
5 
5 
9 

4 

5 



H 



# Characters 
in Name 

4 
3 
6 
6 
6 
8 
7 
4 
7 
5 
15 



1 



—J 



If the label field is nonzero, a label 
definition PRF entry is generated, and the 
DO loop pushdown list is scanned to see if 
any loops are terminated. If the no- flow 
flag is up, the no- flow indicator in the 
PRF entry is set. 

If the label field is blank and if the 
no- flow flag is up, a diagnostic is 
printed, indicating that the statement is 
not accessible. If the ISP option is on, 
TEVCRL is called to create a label, and 
processing continues with forming the PRF 
entry. 



FALTH is called by EXEC2 to determine if 
a label reference in the statement preced- 
ing the current one refers to the current 
statement. See Chart CO. 



ENTRIES ; FALTH has one entry point CCEKB- 
QA) and no input parameters. 



EXIT ; No output parameters. 



OPERATION ; FALTH checks to see if the cur- 
rent statement was labeled. If it was not, 
a normal exit is taken. If it was labeled, 
the PRF links are followed until the label 
definition entry is reached. The statement 
number in the label definition PRF entry is 
saved, and the link followed to the pre- 
vious PRF entry. If that PRF entry is a 
label definition or an argument definition 
entry, the link is followed to the next 
entry, and so on. If the PRF entry is any 
of the GO TO entries, or a CALL, arithmetic 
IF, READ, or READ with namelist entry, the 
label references in the stat^tient are 
matched with the statement number saved 
from the label definition. If a match is 
found, the label reference number is set to 
negative- 

The occurrence of a negative statement 
number in succeeding phases results in 
object code optimization. If the PRF entry 
is other than those mentioned above, a 

normal exit is taken. 



Table 21. Statement ID Numbers 



I ID 

Executable] No, 

^ ^ + 1.. 

BLANK I 

ASSIGNMENT! 1 

ASSIGN I 2 

BACKSPACE I 3 

CONTINUE I 4 

END FILE I 5 

PAUSE I 6 

PRINT I 7 

PUNCH i 8 

REWIND I 9 

WRITE 1 10 

READ I 11 

CALL I 12 

STOP I 13 

RETURN I 14 

GO TO I 15 

IF I 16 

DO I 17 



Nonexecutabl e 

BLOCK DATA 

COMMON 

DATA 

DIMENSION 

END 

ENTRY 

EQUIVALENCE 

EXTERNAL 

FORMAT 

FUNCTION 

IMPLICIT 

NAMELIST 

SUBROUTINE 

COMPLEX 

DOUBLE PRECISION 

INTEGER 

LOGICAL 

REAL 

STATEMENT FUNCTION 



-l 

ID 
No. 

-I 

18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36*1 



|.„„^^ ^„J. L J ^ 



I *This ID is never 
by FYPR. 

L . . . 



set by SID, but is set 



, J 
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CEKCA. — Diagnostic Message Generator (ERR.) 

ERR generates diagnostic ii-essages for 
the statement processors wnenever any 
source errors are encO'Unt ered . See Chart 
CP. 

ENTRIES : ERR has four entry points. ERRl 
(CEKCAA) is used for warning messages, ERR2 
CCEKCAB) is used for serious error mes- 
sages. ERRD (CEKCAC) is used for serious 
error messages associated with statement 
deletion, and ERR3 CCEKCAD) is used for 
fatal error messages associated with abor- 
tive end of compilation. The input parame- 
ter for all entry points is the message 
number in register P2. 

EXIT ; No output parameters, 

OPERATION : This routine prepares a parame- 
ter list for the compiler executive subrou- 
tine RDM CCEKTE) , and calls RDM to put out 
a diagnostic message. The parameters for 
RDM are determined by the message number 
presented to this routine. Each message 
number indicates a list of four half word 
indicators. Each nonzero indicator either 
specifies a piece of prepared text, whose 
length and location are to be added to the 
RDM parameter list, or specifies a" code 
branch to perform a special operation to 
obtain material for the RDM parameter list. 
A message number for which indicators have 
not been provided causes a special RDM pa- 
rameter list to be prepared, giving the 
message number. 



The local maximum error code is updated by 
this routine, according to the entry used. 
The delete flag is raised when the ERRD 

entry is used. 
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SECTION 4: PHASE 2 



INTRODUCTION 

Phase 2 performs several major func- 
tions. Storage assignments are made for 
all source program variables, taking into 
account the effects of COMMON, EQUIVALENCE, 
and DIMENSION statements. The source pro- 
gram flow and DO loop structure are ana- 
lyzed to verify that all referenced labels 
are defined, to determine that all flow 
across loop boundaries is legal and to mark 
loops for materialization of the loop vari- 
able (keeping it in its memory cell) , or 
for marking the loop unsafe C minimum opti- 
mization) when flow conditions demand it. 



restricted linkages. It has one entry 
point, CEKJAl , and one parameter, the 
executive intercom region. 



EXITS : PHASE2 has one normal exit to Exec. 

Abnormal exits are converged to the Exec 
with return codes CRC) 8 and 4. Return 
code 8 specifies an irrecoverable condition 
and is referred to mnemonically as the 
ABORT return code. Machine or compiler 
errors CMCERR) are indicated by return code 
4. 



ROUTINE DESCRIPTIONS 

Phase 2 routines bear mnemonic titles as 
well as coded labels. The 5-character 
coded labels begin with the letters CEKJ; 
the fifth letter identifies a specific rou- 
tine. Various entry points to a routine 
are identified by a sixth character, a 
digit, added to the coded label j for 
example, the coded label for the diagnostic 
message generator variable routine is 
CEKJH, and there are entry points CEKJHl, 
CEKJH2, and CEKje3. When reference is made 
to a compiler executive routine or entry 
point, the mnemonic title is used, followed 
immediately by the corresponding coded 
label enclosed with parentheses. 

There are no hardware configuration 
requiren^nts for any of the Phase 2 rou- 
tines. All these routines are reenterable, 
nonresident, nonprivileged, and closed. 
Except for PHASE2 CCEKJA) , which uses stan- 
dard, type I linkage, all Phase 2 routines 
use restricted linkage. 

The relationships of routines in this 
phase are shown in the following nesting 
chart (Figure 18) and decision table (Table 
22) . The relationships are shown in terms 
of levels ; a called routine is considered 
to be one level lower than the calling rou- 
tine. Phase 2 controller PHASE2 is consid- 
ered to be level 1- 

CEKJA ~ (PHASE2) 



PHASE2 controls the overall processing 
of Phase 2. See Figure 19. 

ENTRIES : This routine is entered using 
standard, type I linkage. It calls the 
other routines used in Phase 2 by 



OPERATION : On entrance from Exec, PHASE2 
initializes itself and invokes the two main 
routines: VSCAN and FSCAN. (See Figure 
19) . VSCAN makes storage assignments using 
the storage specification list for informa- 
tion about COMMON and EQUIVALENCE state- 
ments. FSCAN scans the PRF to perform the 
flow and loop analysis. 



CEKJC — Storage Assignments for Variables 
(VSCAN) 

VSCAN makes storage assignments for all 
variables in a source program, and consists 
of three parts: VSCANl, VSCAN2, and 
VSCAN3. See Chart CQ. 



ENTRIES : VSCAN has one entry point 
(CEKJCl) and is invoked by PHASE2. There 
are no input parameters. 

EXITS : VSCAN returns to the Phase 2 execu- 
tive with the normal, ABORT, or MCERR 
return codes. 

OPERATION : VSCAN assigns storage space for 
all variables. Assignments are made in 
certain storage classes. The status of 
each storage class is kept up to date in 
its storage class table entry (see Appendix 
A). Non-COMMON variables are assigned in 
storage class 6, blank COMMON in storage 
class 9, and named COMMON in as many of 
classes 10-127 as are needed. Each symbol 
table variable entry has its STCL field 
filled with the appropriate storage class 
and its SLOC field filled with an assign- 
ment relative to the base of that storage 
class. The storage class table entry for 
each class includes the number of bytes 
already assigned in that class; the entry 
also indicates the next available space. 
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PHASE 2 



VSCAN 



FSCAN 



FORMAT 



M M V 



DX 



RTN1 



ISP 



"iD 



FLL 



Figure 18. Phase 2 Nesting Chart 
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Table 22. Phase 2 Decision Table 

Routine:— -Phase 2-™ ■ • • Level : 1 



I Routine 

I- 

IPHASE2 



Usage 



[Called I 
I Routines | 



Calling Conditions 



^ 

[Entered unconditionally to make the memory | 
I assignments. | 

I Entered unconditionally to scan the FRF to | 
I perform the flow and loop analysis. | 
-X- _ . . , J 



I Controls the operation of |VSCAN 

I Phase 2. | 

I IFSCAN 



Routxne: 
r^ 



-Phase 2--^ • — ■ — ■ Level : 2 



VSCAN 



Makes the memory assign- 
ments for all variables. 



DX 



If an error condition is found, entered 
to print the error message. 



FSCAN 



Does the flow and loop 
analysis including label 
processing, illegal 
transfers, unsafe loops, 
and COMMON and formal 
argument definition 
points. 



RTNl 
LAB 

ISP 
FORMAT 



TEVFLL 
(CEKTFG) 

DX 



Entered for each label reference to place 

an entry in the Symbol Table. 
Entered for each label reference to check 

the legality of transfers into and out 

of loops. 
Entered for each label reference to check 

for a proper Symbol Table entry. 
Entered for each I/O statement reference 
to a FORMAT number to check for a proper 
Symbol Table entry. 
An Exec routine entered for each label 

definition to file an entry in the 

symbol table. 
Entered when an error condition is found 

to print the error message. 



Routine: 

r — ■ ■ — 



-Phase 2 — • • — ^ • ■ Level : 3 



, , -^ ^. ^ , ^ 

TEVFLL I An Exec routine entered to make the label 
(CEKTFL) I entry in the Symbol Table. 



RTNl 



Places label references 
in the Symbol Table. 



H 



LAB 



Checks the flow as 
related to DO loops. 



ISP 



DX 



h 



FORMAT 



— + 



I Entered for each label reference to de- 
I t ermine if a legitimate Symbol Table 
I entry exits . 

I Entered if an error condition is found to 
I print out the error message. 



Checks to see that refer- 
enced FORMAT statements 
are properly defined 
in the Symbol Table. 



DX I Entered if an error condition is found to 
I print out the error message. 



Routine :- 



-Phase 2 — ■• — • • ^ — ^-Level : 



r 

I ISP 



.-J. ^ . ^-j— ^ — 

I Checks to see that ref er- | DX 
I enced statement labels j 
I are properly defined in I 
I the symbol table. | 

-X ^ ^ X. 



_^, . ^ ^ , , ^ 

I Entered if an error condition is found to | 
I print out the error message. | 

I I 

I I 



Routxne 

r ^ 

[DX 



-Phase 2 — ^ — ^ ^- ^ — ^ — • — • — — Level: 5 

. — ._, -P 



1 To generate the error 
I message 



^ , ^ ^ . , — ^ ^ 

I RDM I An Exec routine entered for each error | 
I (CEKTE) I to print the line. | 
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Enter 



Phase 2 




1 Init-iarz'j* 


on 


i . 




1 


r 


V5CAN 1 


Assign 


! 


Sforage fo 




Variables 





RC " ? ''N. 



Exit- 



Yes 



FSCAN 


Lacel and 
Loop Boundary 
Error 

Processing 


^ 


■ 


[ E..;r 



Figure 19. Phase 2 General ^''low 



All symbol table entries except con- 
stants and labels are relinked from the 
hash-table-based chains used in Phase 1. 
The variables of each storage class now 
form a chain, linked in order of assign- 
ment. External reference, namelist, and 
entry entries form three additional chains. 

Description (VSCANl) : All chains based on 
the variable hash table are scanned, and 

each entry is examined. Those marked as 
external reference, namelist, or entry are 
linked into their appropriate chains. 
Those marked variable but flagged as COMMON 
or EQUIVALENCE are ignored, since they will 
be processed later. Those marked variable 
but flagged as formal argument are also 
ignored. All other nonvariable entries are 
ignored. 

For each non-COMMON, non- EQUIVALENCE, 

non- formal- argument variable encountered, 
an entry in a sort table is made (see 
Figure 20) containing the number of dimen- 
sions, the type size mask, the amount of 

storage required, the type indicator, and 
the symbol table pointer- When all symbol 

table entries have been scanned, the sort 
table is sorted to increasing value of 
these fields. The result is that all 



4 8 16 31 

J. ^ ^,_. — . — . ^ . . ^ 

1 ND I TM I SZ I 

|.. X — ^^4 — ^„. „^ 

I TY I Unused | VAR | 

L ^--.-^ i_^ J. . . J 

ND Number of dimensions CO- 7) 
TM Type/size mask: 

Logical*! 3 Real*4 

1 Integer*2 7 Real*8 

3 Logical*^ 7 Complex*8 
3 Integer*^ F Complex*16 

SZ Total storage requirement 

TY Type: 1 Logical 

2 Integer 

3 Real 

4 Complex 

VAR Symbol Table name part pointer 

Figure 20. Soart Table Entry 



simple Cundimensioned) variables come 
first, then all 1-dimensional arrays, etc. 
Within a dimensionality, variables of the 
same type fall together, those requiring 
less storage preceding those needing more. 

The variables are then assigned in the 
sorted order, to maximize the possibility 
for sharing address constant cover and sub- 
scripts between variables. The assignments 
are made in storage class 6 , with each 
variable being assigned to the next avail- 
able byte on a boundary suitable for the 
type. At the same time, the variable sym- 
bol table entries are linked into the vari- 
able chain. 

Description (VSCAN2) : VSCAN2 scans the 
storage specification list, processing the 
COMMON variables and providing preliminary 
processing for variables appearing in EQUI- 
VALENCE statements. The information from 
COMMON statements filed in the storage 
specification list is scanned. Each vari- 
able is given an assignment CSTCL and SLOC) 
in the storage class for its COMMON block 
and linked into the symbol table chain for 
that block. The size of the block is 
increased for each variable by the space 
required for the variable. 

If the available assignment for a COMMON 
variable is not at the proper boundary 
Chalfword, fullword, doubleword) for the 
type, a warning message is produced. (In 
the object program storage layout all 
storage classes will start on a doubleword 
boundary. ) 

As the storage specification list is 
being scanned and COMMON variables are pro- 
cessed, the information from EQUIVALENCE 
statements also receives preliminary pro- 
cessing. The material appearing in a set 
of parentheses in an EQUIVALENCE statement 
is called a group; group numbers are 
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assigned to groups sequentially, in order 
of occurrence. As an £QUIVAIiENCE entry is 
encountered, VSCMI2 must determine whether 
a variable is of tne type 'FF*. If so, 
VSCAJ^2 computes the offset by searching for 
dimension information in the Dimension 
Table (whose specifications may occur in 
DIMENSION, COMMON or explicit TYPE state- 
ments) . If insufficient or no dimension 
information is found, an E level diagnostic 
is issued and an offset is computed by 
defaulting to the first subscript. Pro- 
cessing continues to the next: variable or 
group, if any, until all groups in the 
EQUIVALENCE Statement are exliausted. 



If a variable is of the type 'FF' and 
dimension information permits an offset to 
be computed, VSCAN2 overlays the last sub- 
script oitry (EE2, EE3 , EE4 or EE5) with 
the newly formed EEl. With this technique 
VSCAN2 can consistently step through tae 
EQUIVALENCE entries by an increment of one 
(1). For each occurrence of a variable in 
an EQUIVALENCE statement, an entry is made 
in the variable list (see Appendix A for 
variable list format) . The entry consists 
of the symbol table pointer, the group 
number, and the offset in bytes, and repre- 
sents the equation 



(base of group) 
offset 



(base of variable) + 



Base-of -group and base-of -variable are 
unknowns. Base-of- variable represents the 
eventual storage assignment to be made for 
the variable. Base-of -group represents the 
assignment ^^ich would be made to a vari- 
able appearing in the group with no 
subscript - 



Description (VSCAN3) : After the storage 
specification list scan is completed, the 
variable list is sorted by increasing or- 
der, with the symbol table pointer as the 
major key and the group, there will be con- 
secutive entries for that variable in the 
sorted list. These consecutive entries in- 
dicate connections between different 
groups . See Figure 21 . 

The sorted list of variables is scanned. 
In the case of consecutive pairs involving 
the same variable, each such pair repre- 
sents a pair of equations: 

(base of groups) = (base of 
variable) * offsetj. , 

(base of group^) = (base of 
variable) -•- offset^, 

where the number of group 2 ^ number of 
group-L . 



Variable List Entry 

16 31 
^ — ^ — . — ^. „ ^. — , ^ 

1 \/AR I GPV I 
^ „ X ^ 

I OFS I 

I . ■ — ^ J 

VAR Symbol Table name part pointer 
GPV EQUIVALENCE group number 
OFS Offset in bytes 

Group Connection List Entry 

16 31 

^ — _. — ^^^, . ._ ^, — . . ^ 

1 GPl I GP2 I 

|. ^„™ X . 4 

I DSPL I 

L ^ . ^ J 

GPl, GP2 Group numbers 
DSPL Displacement 



Group Table Entry 

16 24 31 

^ ^_ . ^ ^ _^ , ^ 

1 GPl I STCL I MAXS | 

|. ^^ X X «- ^__-| 

1 DSPL I 

i . , . , J 

GPl Group number 

STCL Storage class 

MAXS Maximum byte boundary over group 

DSPL Displacement 

Figure 21. Variable List, Group Connection 
List, and Group Table Entries 



Eliminating the base-of -variable gives 
the equation 



(base of groups) = (base of groups.) ♦ 
(off set2-of fseta.) , 



which is represented by an entry in a new 
list, the group connection list, consisting 
of group number -1. , group number^f and a dis- 
placement computed as offsets minus 
offset^. 



After completion of this scan, the group 
table is initialized. It contains one 
entry per group, and will eventually indi- 
cate, for each group, the lowest numbered 
group with which it is connected and its 
displacement from the base of tht group. 
Each entry consists of a group number and 
displacement, representing the equation 

(base of group_.) = (base of group ) + 

displacement , 
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and is initialized to 

Cbase of group^ = (base of groupj) + 
. 

Each group connection entry is processed 
against the group table. The group 
connection entry gives the equation 



(base of group ,^)^= Cbase of group ^) + 
disp la cement 2L 

and the group table entry for group gives 
the equation 



Cbase of groupie ) 
displacement^ • 



Cbase of group j) -»-• 



Comparing the numbers of group^ and 
group^ , there are three possible cases. 

Case 1 . i<j The group connection entry 
relates group j^ to a lower-numbered group 
than that with which it is already con- 
nected. Group J and displacement^ are 
saved, and the group table entry for 
group^is changed to indicate 

Cbase of group k) = Cbase of group/) + 
displacements - 

If k = j Cas initially) , no further pro- 
cessing is needed. However, if k > j, 
eliminating base-of- groups, from our two 
equations gives a new group connection 

entry representing 

Cbase of group j) = Cbase of group i) + 
Cdisplacementj, - displacement 2) - 

This entry is formed and processed against 
the group table entry for group j. 

Case 2 . i = j. If displacemen'ti = displa- 
cement^f this entry is consistent but 
redundant, and needs no processing. 

Case 3 . i > j. The group table entry 
relates group ^ to a lower- numbered group 
than the group connection entry. Elimina- 
ting base-of- group R from the two equations 

gives a new group connection entry 

r epr es ent ing 

Cbase of group,) = Cbase of groupj) + 
C displacement 2 - dis placement 1.) • 

This entry is formed and processed against 
the group table entry for group j^. 

After the group connection list has been 

processed, a final pass is made over the 
group table. Each entry represents an 

equation 

Cbase of group p) = Cbase of groups) + 
displa cement i 



If the earlier entry for 
groups indicates 

Cbase of groups) = Cbase of groupt) + 
displacement^ , 

then substitution yields 

Cbase of group^) = Cbase of groups) + 
Cdisplacementj. -*■ displacement^) . 

This substitution is carried out for each 
entry to which it applies. 

The group table is now in final form and 

ready for use- The variable list is 
scanned again. Each entry represents 

Cbase of variable) = Cbase of groupm) 

- offset . 

The group table entry for 
group m represents 

Cbase of group^) = Cbase of group^) -*- 
displacement • 

Substitution yields 

Cbase of variable) = Cbase of group^) 

- Coffset - displacement) 

and the variable entry is changed to repre- 
sent this equation. Clf two consecutive 
entries for the same variable occur, both 
must transform to the same new entry. ) 
This entry now relates the variable to the 
base of the lowest- numbered group in the 
connected set of groups in which the vari- 
able occurs. 

During this scan the STCL field in the 
symbol table entry for each variable is 
checked. This field is zero for a non- 
COMMON variable, but indicates the COMMON 
block for a variable which has already been 
assigned in the COMMON processing. If any 
variable in a group is in a COMMON block, 
the group table entry receives the appro- 
priate storage class; otherwise, this entry 
is set to storage class 6. Also during 
this scan, the size of the largest variable 
in a group CI, 2, U, 8, or 16 bytes) is 
associated with the group. 

The variable list is sorted by decreas- 
ing order, with the group number as the 
major key and the offset as the minor key. 
CThe offset may be negative, so the sort 
must use algebraic comparisons.) This sort 
brings together the variables within the 
same group and arranges them in order of 
storage assignment. 

Now the list is scanned, and assignments 
are made for each variable. For each non- 
COMMON group the current size of storage 
class 6 is adjusted to the proper byte 
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boundary for the largest variable in the 
group. The first variable in the group 
(the one with the largest offset) is given 
this assignment, and each successive vari- 
able is assigned to this location plus the 
difference of maximur^-of f set minus the 
-variable's-of f set. Also for each vari- 
able, its size (total size if an array) is 
added to its assignment, and tne maximum of 
these over each group is used to u^jdate the 
size of storage class 6 when all the group 
variables have been processed. Each vari- 
able is linked to the end of the non-COMMON 
variable chain. 

For a group including a COMMON variable, 
that variable is located and its existing 
assignment is taken as a group base. 

Each variable is given, as an assign- 
ment, the assignment of the base COMMON 
variable plus the difference of COMMON- 
variable- offset minus variable-of f set . A 
check is made for negative assignments and 
assignments to improper byte boundaries. 
Each variable assigned is linked into the 
chain for the COMMON block, in order of 
increasing assignment. If the size of the 
COMMON block is increased by these assign- 
ments, the storage class table entry is 
updated. 

In addition, as the assignments are made 
for common variables, checks are made to 
ensure that those appearing in DATA state- 
ments are permissible. 



VSCAN detects and issues diagnostic mes- 
sages for source program errors related to 
storage assignments for variables. These 
include inconsistencies in EQUIVALENCE 
relations and assignments forced by COMMON 
or EQUIVALENCE statements that place 
variables on byte boundaries which are not 
proper for the variable type. 



V3CMI may issue a diagnostic message and 
branch to PHASE2 with the ABORT code if the 
internal tables used for sorting exceed the 
maximum available space. VSCAN may branch 
to the Phase 2 executive with the MCERR 
code if certain conditions are detected 
which must be due to machine or compiler 
error. 

If the ISD option is OFF, another symbol 
table scan is made to find interfering 
variables. In each storage class, the 
variables are scanned in order of storage 
assignment by following the existing chains 
built by VSCAN. For each variable, the 
storage assignment plus the size is com- 
pared with the storage assignments of suc- 
ceeding variables. When overlap is 
detected, the "Equivalence Flag" in the 
symbol table description part is raised and 
the variables are linked, using the FDP 
anchor field in the symbol table entries, 
in a chain of interfering variables for 
that storage class. At the end of VSCAN, 
these chains are anchored in a new table, 
"Intble", which has the format below. 



16 



31 



INTBLE FORMAT 



^o, of named | Not used 
commons | here 
^ ^ __^^ „™^_„ 

SYMTAB Anchor | 8000 

Storage Class 6 | (flag for later use) 

„„ + .„_^ ^„»^ 

SYMTAB Anchor | 8000 
Storage Class 9 j 
™^ ^^^^ ^ ^„„ 

SYMTAB Anchor | 8 000 

Storage Class 10 j 

. ^-„„ +__^ . ^ 

^^ j.^ .„ ^„„ 

SYMTAB Anchor 1 8000 

Storage Class N j 
^ + ^^ ^^ 

SYMTAB I PRF 

PART I PART 



NON-COMMON VARIABLES 



BLANK COMMON VARIABLES 



FIRST NAMED COMMON 



LAST NAMED COMMON 
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CEKJB — Process Label References and 
Definitions CFSCAN) 



FSCAN is in two oarts : 



the sym.bol table. A negative label value 
indicates a reference to the next statement 
and is not marked "referenced." 



FSCANl - is concerned with labels which 

must be entered into the symbol 
table and marked if referenced in 
the source program. 

FSCAN2 - is concerned with the follo%>/ing: 
undefined label references and 
illegal flow conditions across DO 
loop boundaries, unsafe loops and 
the need for materialization, and 
definition points for COMMON and 
f orma 1 a rg ume nt s . 

See Chart CR. 

ENTRIES: FSCAN has one entry point 
(CEKJBl) and is invoked by the Phase 2 
executive. 

EXIT S; FSCAN returns to the Phase 2 execu- 
tive with the normal, ABORT, or MCERR 
return codes. There are no parameters. 

OPERATION: FSCANl constructs symbol table 
entries from label references and label 
definitions, together with information per- 
taining to each label. One scan is made 
over the PRF, by simultaneously progressing 
along three separate chains. These chains 
are as follows: 

1. CLNK chain — Links all transfer of 
control statements in the PRF. For 
each different place to which control 
can be transferred, there is a label 
reference. 

2. LLNK chain -™ Link label definition 
entries in the PRF. 

3. PDLNK chain — All DO statements have 
a begin loop (BL3) and a special entry 
end loop (ENDL) in the PRF, just prior 
to the next executaole statement out- 
side the loop. These are the loop 
boundary items, and all such items in 
the PRF are linked into a loop bounda- 
ry chain called the PDLNK chain. 

After any chain entry has been pro- 
cessed, the three linki^: one for each 
chain) are compared. 1 . chain having its 

next entry closest to the present scan 
position in the PRF is selected for pro- 
cessing next. 

When a GLNK chain entry is selected, 
each label reference (there are NOEL of 
them) is placed in the symbol table and 
denoted as a referenced label. The number 

of references is given hy the NOEL field. 
The LLNO field in the PRF is changed to 
contain the pointer to the label entry in 



"^^'^hen an LLNK chain entry is selected, 
the label is placed in the symbol table, 
together with corresponding level and pla- 
teau values, and the LLNO field in the PRF 
is changed to contain the label address in 
the symbol table. Multiply defined labels 
are detected in this scan. 



When a PDLNK chain is selected, the 
level and plateau values are incremented 
and saved, and the level value is placed 
into the LEV field of the PRF. 

Two tables, formed during FSCANl, are 
used during FSCAN2 for detection of illegal 
flow conditions: 

The Barrier Table 

15 16 31 



PLAT 



LEV 



The Innermost Loop Table 
15 16 



31 



I 



PLAT 



-^ .^. , , ^ 

I Symbol Table Pointer | 
I (May be 0; entered t 
I during scan number | 

|2) I 

-J. J 



The plateau value is entered into the 
innermost loop table whenever a BL3 entry 
is preceded by an ENDL entry. The level 
and plateau values are entered into the 
barrier table whenever a BL3 entry is fol- 
lowed by an ENDL entry. 

A plateau is any area between loop 
boundary entries. The PRF link to a loop 
boundary entry (End Loop or BL3) is used as 
a name for the plateau which starts with 
that entry. 

FSCAN2 is concerned primarily with three 
things : 

1. Discovering any label references which 
are not defined. 

2. Processing DO loop items for flow 
conditions. 

3. Forming the CDP and ADP chains. 

These three processes are carried out si- 
multaneously while FSCAN2 is scanning the 
PRF along the ILNK chain (which links 
together successive PRF items) . 
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Label Processing 

If the current item in the PRF scan is a 
label reference item, each symbol table 
pointer associated with the label reference 
is used to locate the define bit in the 
symbol table for that particular label 
reference. If the define bit is not on, 
this particular label is not defined, and 
an appropriate error diagnostic is given. 
This particular PRF item is then deleted 
from the ILNK chain-.'-- 

Label definition items are similarly 
checked, to see if they have been 
referenced (i.e., the reference bit is set 
in the symbol table) . If not, this item is 
deleted from the LLNK chain. After this 
scan the LLNK chain will link together suc- 
cessive label definitions for referenced 
labels only. Label definition items which 
have been referenced are checked for the 
no-flow condition. If the no-flow bit is 
set in the symbol table, a diagnostic is 
issued indicating that the statement cannot 
be reached. 

Flow Processing 

If the current item in the PRF scan may 
cause an illegal flow condition to occur, 
the item will be investigated for all such 
conditions, and a diagnostic given if any 
is found. 

The flow processing is broken into two 
areas for investigation. These conditions 
are described below. "Level zero" denotes 
a plateau not inside any DO loop. 

1. Jumps from or to Level Zero 

Jumps from Level Zero . If the jump is 
not to an innermost loop or to level 
zero, a diagnostic is given. If the 
jun^) is to an innermost, loop, the pla- 
teau and symbol table pointer of the 
definition are entered into the E loop 
list. 

Jumps to Level Zero . If a jiimp is 
made to level zero from an innermost 
loop, the plateau value of the label 
reference is entered into the X Loop 
List. In this case, all intervening 
levels from the label reference to the 
level preceding the label definition 
are marked as materialized in the 
■Materialization List." 

2. Jumps Other than those from or to 
Level Zero 

Jtimps into Loops C Jumps to Higher 
Levels) . A jump from a level other 
than level zero to a label definition 
whose level is greater than that of 
the label reference is an illegal jump 



into a loop, and an appropriate diag- 
nostic message is given. 

Jumps Out of Loops (Jumps to the Same 
or Lower Levels) . If a jump is made 
(from a reference level other than 
level zero) to a label definition 
whose level is less than or equal to 
that of the label reference, the bar- 
rier table must be inspected for any 
plateau values with level lower than 
that of the definition intervening 
between the plateau value of the label 
reference and that of the label 
definition. If there are no such pla- 
teau values between these limits, the 
jump is legal. If there is such an 
intervening plateau value between 
these limits, a diagnostic message is 
given, indicating an illegal jump into 
a loop. All loops from the reference 
level to the definition level are 
marked "materialize." 

DO Loop Processing 

1. Unsafe Loops 

Two lists are formed during FSCAN2: 

E Loop List — consists of plateau 
values of label definitions which 
occur at an innermost loop, and 
are referenced from level zero. 

X Loop List — consists of plateau 
values of label references which 
occur at an innermost loop. 

Every entry in the E loop list should 
also be in the X loop list; therefore, 
each innermost loop entered from level 
zero also has a jump out of this 
innermost loop to level zero. If this 
condition is not met, an appropriate 
diagnostic is given. A third scan is 
made over the PDLNK chain. If any 
entries exist in the E loop list, 
those end loop entries which lie 
between the plateau values of the 
label reference and the label defini- 
tion are marked as unsafe. 

2. RETURN Loops 

Loops containing RETURN statements are 
marked "materialize" if the loop vari- 
able is in COMMON or is a formal argu- 
ment called by name. 

3. Definition Point Chains 

The CDP chain connects PRF entries 
which must be considered as definition 
points for all C0B040N variables or 
formal arguments. An entry is linked 
in this chain if the statement 
involves a call on an abnormal func- 
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tion or subroutine (one which may 
redefine COMMON) , or if a formal argu- 
ment is explicitly assigned a new 
value. 

The ADP chain connects PRF entries 
which must be considered as definition 
points for all formal arguments- An 
entry is linked in this chain if a 
COMMON variable is explicitly assigned 
a new value Cand the entry is not 
already in the CDP chain) • 

The processing of interfering variables 
takes place during the second PRF scan. 
Chains of the interfering variables within 
each storage class are formed within the 
PRF and anchored in the second halfword 
(the PRF part) of the corresponding Intble 
entries. When a variable is being defined, 
that is, wherever ID = 5 (equation), ID = D 
(argument definition point), ID = 10 (Begin 
Loop 2) , or ID = 21 (Input list Element) , 
the equivalence flag in the syotbol table 
descriptive part for the variable is 
checked. If the flag is raised, the 
storage class of the variable is used to 
locate the correct Intble entry. The vari- 
able is added to its chain by setting the 
VDP field to the PRF part of the Intble 
entry, and the chain's anchor is updated by 
setting the PRF part of the Intble entry to 
the IL'NK field. 

The interfering variable chains are 
reversed during the reversing of the CDP 
and PDLNK chains. Another table of the 
same size as Intble, LNKSAVE^, is used to 
hold the saved links. During the chain 
reversal, the chain whose current link is 
in the highest location is chosen for 
reversal at each step. The set of inter- 
fering variable chains is searched to find 
the highest link, and the result is com- 
pared with the current CDP and PDLNK links 
to find the highest current chain link. 

After the chain reversals, Intble is 
scanned for storage classes containing in- 
terfering variables. These syrobol table 
chains of variables are followed and FDP 
anchor fields are set to the beginning of 
the PRF VDP chain for that storage class. 

A halfword cell "LXT" is used to hold a 
symbol table pointer and a flag "ACGTFL" is 

used to indicate that the current PRF item 
is either an assigned or a computed GO TO 

statement . 

ACGTFL is lowered before starting FSCAN2 
and raised at each computed (ID 8) or 
assigned (ID 7) GO TO item before calling 
LAB CCEKJE) and lowered when returning from 
LAB. 

LXT is set to 8001 at each end- loop item 
CID12) unless the global flag is raised 



(i.e., loop is flagged "Innermost no 
calls"). In this case, LXT equals 8000. 
At each begin- loop- 2 item (ID 10) , the cur- 
rent value of LXT is put into the EXITLB 
field and the LXT is set to 8 001. 



CEK.JD — Label Reference Processor ( RTNl) 

RTNl places label references in the sym- 
bol table. See Chart CS. 

ENTRIES : RTNl has one entry point, CEKJDl. 
Input parameters are 

PI — Number of label references in 

PRF item 
P2 -- Index to first label number in 

PRF item 

EXITS : RTNl returns to the invoking rou- 
tine with the normal or ABORT return code. 

OPERATION : RTNl checks the sign of the 
label number. If the sign is positive, it 
is replaced by the pointer to the cor- 
responding symbol table entry, and the sym- 
bol table entry is marked as "referenced." 
If the sign is negative, indicating a 
reference to the next statement, it is 
replaced by the symbol table pointer, but 
is not marked as "referenced." 

Negative values appearing in arithmetic 
IF statements are simply replaced with 
X»8000« to indicate fall-through. 

CEKJE — Label Reference Processor (LAB) 

LAB checks flow as related to DO loops. 
See Chart CT. 

ENTRIES ; LAB has one entry point, CEKJEl . 
Input parameters are 

PI — Number of label references in 

PRF item 
P2 -- PRF index to first symbol table 

pointer 
P5 — Pointer to PRF item 

EXITS : Only the normal exit is made, with 
no output parameters. 

OPERATION ; LAB checks the legality of 
jumps from and into DO loops, as described 
under "Flow Processing" in FSCAN. 

The materialization list is marked as 
required, the necessary X loop and E loop 
list additions are made, and appropriate 
diagnostics are given when illegal flow 
conditions are detected. 

LXT and ACGTFL are processed at the two 
points where a branch out of a loop is 
detected to a level of zero or greater than 
zero. If LXT equals 8000 or if LXT equals 
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the SyiBboi Table pointer for tne current 
label, and if ACGTFL is (3,ov^n, then set LXT 
to equal the Symbol Table pointer for the 
current label, and oniit marking the PAT 
stack for the currently innermost level. 
Otherwise set LXT to 8001. 



CEKJH — Diagnostic Message Generator CDX) 

DX generates diagnostic messages whenev- 
er error conditions are encountered. See 

Chart CU. 



CEKJF -~ Statement Label Reference 
Inspection (ISP) 

ISP determines whetner referenced state- 
ment labels are properly defined. 



ENTRIES: 



ISP has one entry point, CEKJFl. 



Input parameter xs 

P2 -- PRF index to symbol table 
pointer 

OPERATION : The symbol table item of the 
referenced label is checked to see if it is 
marked "defined." If it is not, a diag- 
nostic is issued and the undefined flag is 
raised. ISP is not entered to check the 
validity of FORMAT label references. A 
diagnostic is issued and the undefined flag 
is raised when erroneous references to FOR- 
MAT lables are encountered. 

CEKJG — Format Reference Inspection 
(FORMAT) 

FORMAT determines whether referenced 
FORMAT statements are properly defined. 

ENTRIES : FORMAT has one entry point, 
CEKJGl . Input parameters are 

P2 -- PRF index to syml>ol table 

pointer 
P5 -- Pointer to PRF item 

OPERATION: The associated symbol table 
entry of the referenced label is checked to 
see if it is marked "defined." If it is 
not, a diagnostic is issued and the unde- 
fined flag is raised. A diagnostic is also 
issued and the undefined flag is raised if 
the class of the label item is not FORMAT. 



ENTRIES: DX has three entry points: 
CEKJHl, CEKJH2, CEKJH3. The input parame- 
ters, for all three entry points, are 



PI — The Phase 2 diagnostic code 
P2,P3 — Pointers to the syiri>ol table 
or PRF item from which infor- 
mation is to be extracted. 



EXITS: 



Only the normal exit is made, with 



no output parameters. 



OPERATION : DX generates a diagnostic mes- 
sage by operating on a parameter list, from 
which another parameter list is generated 
for RDM. An input parameter may be one of 
two types. The first type is a parameter 
which merely points to a piece of prepared 
text. In this case, the address of a word 
containing the text length in characters 
and the address of the text are entered 
into a parameter list for RDM. 

The second type is a parameter which 
specifies that a certain predefined opera- 
tion is to be performed. In this case, an 
indexed branch on the parameter is made to 
the operation to be performed. Each of the 
operations extracts specified information 
from some table or file, such as the symbol 
table, performs any conversions required, 
and makes appropriate entries in the param- 
eter list for RDM. 

A parameter word containing zeros indi- 
cates the end of the input parameter list, 
and RDM is called to output the diagnostic 
message. 
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SECTION 5; PHASE 3 



INTRODUCTION 

The nejor function of Phase 3 is globa,l 
optimization, which is the process of mini- 
mizing the number of object code instruc- 
tions to be generated by Phase 4. There 
are four categories of global optimization. 

1. Reinovable Expressions. A "removable 
expression" is one whose individual 
operands do not have "definition 
points" inside the loop. A definition 
point is a statement in which the 
variable has, or may have, a new value 
stored in it (e.g., appears on the 
left-hand side of an equal sign) - In 
removing an expression. Phase 3 does 
not remove the left-hand side of an 
assignment statement nor a label. The 
"store" operation remains inside the 
loop. 

In the following example the expres- 
sion (B+C) is removable from the indi- 
cated loops, but the expression CA+D) 
is not, since the variable A has a 
definition point inside the loop 
(statement 10) . 



1,N 



common. The expression CC+CA+B)) can- 
not be marked common in statements 10 

and 30 because the value of C changes 
(i.e., has a definition joint) in 
between, at statement 20. 





DO 30 i=: 


10 


A=B+C 


20 


E=A+D 


30 


CONTINUE 



Common Expressions. Two occurrences 
of an expression are considered to be 
common if the value of the expression 
cannot change between the occurrences, 
i.e., there are no definition points 
for any of the variables involved and 
there is no intervening referenced 
label. 

In the following example, the occur- 
rences of A+B in statements 10 and 30 
are considered common with each other, 
but not with the occurrence in state- 
ment tiO because there is an interven- 
ing referenced label. That is, state- 
ment label **0 Cwhic-. is referenced 
from statement 60) intervenes between 
the occurrence of A+B in statement 30 
and its occurrence in statement 40. 
Labels 2 and 30 intervene between the 
occurrence of A+B in statement 10 and 
its next occurrence; however, since 
neither label 20 or 30 is referenced, 
the occurrences are considered to be 



10 


D=C+CA+B) 


20 


C=D+F 


30 


E=C+CA+B) 


40 


IFCA+B) 50,10,70 


50 


A=F+E 


60 


GO TO 40 



3. Subscript Expressions. Subscript ex- 
pressions determine which individual 
element of a dimensioned array is 

referenced. The expression may con- 
tain four types of constituents: 

a. An address constant Cadcon) 

b- Induction variable parts 

c. Removable parts 

d. Nonremovable parts 

Each subscript has exactly one asso- 
ciated adcon. It is determined from 
the base address of the array variable 
itself and the collection of constant 
terms (done by Phase 1) . 

The induction variable is the variable 
referenced in the DO statement of the 
loop. In the statement 

DO 10 1=1, N 

I is the induction variable (also 
referred to as the loop variable) . 

For the removable and nonremovable 
parts the same criteria are applied, 
as described in "Removable Expres- 
sions" above. 

In the following example, the terms of 
the subscripts involving I and J are 
induction variable parts (statements 
30 and 40). Removable terms are found 
in statement 30. The terms involving 
N are removable from both loops, and 
the terms involving I are removable 
from the inner loop (statement 2 
loop) . 
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The subscript teribS involving M in 

statement 20 are nonremovable because 
of the M definition point in statement 
10. 



1 


DO 50 1=1, K 


2 


DO 40 J = l,Ia 


10 


N|=J+3 


20 


Z (M)=A+M 


30 


XCI>=Z(N)+Y(N) 


40 


YCJ)=YCJ)+M 


50 


CONTINUE 



^- DO loop control. It is a Phase 3 

responsibility to determine the method 
that is going to be used by Phase 4 to 
generate the loop control instruc- 
tions. The following are the types of 
loop control and the criteria for 
each. 

a. BXLE on recursive. 

This loop is controlled by a BXLE 
instruction of the form: 

BXLE Rl,14,LOOPTOP 

where Rl contains tne recursive 
expression that has been initial- 
ized to zero at the loop top, 
register 14 contains the increment 
to be added to the recursive, and 
register 15 contains the test 
value. 

The requirements for this type of 
loop are: 

• There must be no reason to 
materialize the induction vari- 
able; e.g., the ISD option must 
be off, and the induction vari- 
able must not appear in the loop 
outside of a subscript. 

• Loop must be save, innermost, 
with no external calls- This is 
necessary since Phase 4 is going 
to globally assign registers 14 
and 15. 



recursive must be a positive 
constant . 

The following is an example of a 
BXLE on recursive loop: 

REAL* 4 A CIO) 
REM,*8 B (10) 
DO 10 I = 1,10 
10 BCD = BCI)4-ACI) 

In the example, both recursives 
are candidates for the BXLE, but 
the recursive on B, having more 
uses in the loop is selected. 

b. BCTR loop. 

This loop is controlled by a BCTR 
instruction of the form: 

BCrR 15,14 

where register 15 has been ini- 
tialized at the loop top with the 
count of times through the loop, 
and register 14 contains the 
address of the loop top- 

The BCTR loop requirements are: 

• Induction variable does not need 
materialization. 

• Loop must be save, innermost, 
with no external calls. 

The BCTR instruction is never 
selected if the loop also contains 
the recursive requirements to 
qualify for a BXLE on recursive 
loop. 

An example of a BCTR loop is: 

DO 10 I=J,K,L 
10 BCD = BCD+ACD 

Since the loop step (and hence the 
recursive increment) is not a con- 
stant, the loop does not qualify 
for BXLE on recursive. 

c. Materialize and BXLE on induction 
variable. 



There must not be branches out 
of the loop to more than one 
label. If there is a branch to 
only one label, the induction 
variable is materialized on the 
exit path. 

There must appear in the loop at 
least one subscript expression 
containing the induction vari- 
able as the least- removable 
term. The coefficient of the 



This loop is controlled by a BXLE 
instruction of the form: 

BXLE l,14,looptop 

where register 1 contains the 
induction variable, register 14 
contains the loop step, and 
register 15 contains the test 
value that has been created by 
Phase 4. The instruction at LOOP- 
TOP is always a store out of 
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register 1 into the induction 
variable. The prime requirement 
of this loop is that the induction 
variable must be materialized; 
»^hen a loop fails the requirements 
for the other loop control 
methods, it 11; always material- 
ized, since there is no other way 
to count the loop. 



Phase 4 recognizes two versions of 
this loop. One, when the loop is 
innermost, safe, and has no 
external calls. In this case reg- 
isters 14 and 15 can be globally 
assigned in the loop. Otherwise 
temporary storage must be used to 
save and restore the registers. 
Two examples of the BXLE-on- 
induction- variable loop are: 

'DO 10 I = 1,10 

IF CI .EQ. 1) GO TO 10 

ACI) = 0. 

10 CONTINUE 

DO 20 I = 1,10 

IF CI .EQ. 1) GO TO 20 

ACI) = SQRT (ACI)) 

20 CONTINUE 



The outer loop, where j is the 
induction variable, will be con- 
trolled by a compare and branch. 

5. Global Register Assignment. In order 
to facilitate minimizing generated 
instructions. Phase 3 considers cer- 
tain items for permanent assignment to 
registers across a loop. The selec- 
tions are made by maintaining a popu- 
larity count for each item. The count 
is weighted for each type of candi- 
date, considering the value of having 
it globally assigned versus the value 
of not having it globally assigned- 

a. Adcons. 'height = 5. 

b. Removable integer expressions. 
Weight = 5. 

c. Recursive expressions. Weight = 
10. 

d. Constant steps on recursive ex- 
pressions. Weight = 3. 

e. Expressions for testing the end of 
a compare-and-branch loop. Weight 

= 5. 



In both cases, I must be material- 
ized since it is referenced out- 
side of a subscript. In the first 
example, registers 1^1 and 15 can 
be globally assigned. In the 
second, they cannot be because of 
the call to the SQRT function. 

d. Compare and Test Recursive. 

This loop is controlled h\ a com- 
pare and branch- not- equal CB'NE) of 
the form: 

CLR R1,R2 
BNE LOOPTOP 

where Rl contains a recursive 
value; R2 contains the test value 
initialized outside the loop and 
Cin this example) is globally 

assigned. If R2 did not have 
enough weight to be globally 
assigned, then the compare would 
be to temporary storage. 

The only requirements for this 
loop is that there must be no need 
for materialization, and there 
must be at least one recursive ex- 
pression Ca subscript terra con- 
taining the induction variable). 
An example is: 

DO 10 J = 1,10 
DO 10 I = 1,10 
10 ACI, J) = 0.0 



Some items that are used for generat- 
ing loop control instructions do not 
follow the normal selection methods. 
For example, in a loop where registers 
1** and 15 will be globally assigned by 
Phase 4, the items in those registers 
will mot be considered for assignment 
by Phase 3. In a BXLE on-recursive 
loop. Phase 3 always gives global 
assignment to the recursive expres- 
sion, but never to the constant step 
on the recursive or to the test value. 

Phase 3 also considers one floating 
point quantity to be pseudo-globally 
assigned into FP register 6. 

This assignment can take two forms. 

a. Where the variable or subscripted 
variable on the left of the equal 
sign can be kept in FP register 6 
through the loop, and stored when 
the loop is completed - 

The requirements for this assign- 
ment are: 

• Loop must be innermost, with no 
external calls. 

• ISD option must be off. 

• Loop must contain only one assi- 
gnment statement, plus any num- 
ber of blank or CONTINUE 

statements . 



9£| 



• Loop must contain no complex 
nonremovable operation or 2- 
argument intrinsic function. 

• Assignment variable must be real 
and must not be flagged "inter- 
fering" in the symbol table. 

• If the assignment variable is 
sutecripted, the subscript must 
be removable to at least BLl of 
the inner loop. 

• If the assignment variable is an 
array element, references on the 
right side of the equal sign 
must be to the same element, or 
to an element which is known to 
never be the sam.e- The loop is 
flagged only if all references 
are to elements known to be 
either the same element or never 
the same element. For example: 

Ail) = A(I) ♦ ACI+l) 



When a loop does not meet the 
requirements of (a) , one optimiza- 
tion which might still be per- 
formed is to select a floating 
point quantity that can be loaded 
into FP register 6 outside the 
loop. 



The requirements for this optimi- 
zation are that the loop must be 
innermost, safe, with no external 
calls. 



In its backward scan over the 
loop. Phase 3 selects the candi- 
date that is last processed. This 
candidate is deleted if a 
referenced label is reached, or if 
tne current candidate appears as 
an assignment variable. In all 
cases, the candidate must be a 
simple, real variable or a simple, 
real constant. 



On the right of the equal sign 
A(I) is flagged as being in FP 
register 6, but ACI+1) is not 
flagged. The loop is flagged 
for global assignment, since A 
(I+l) can never reference the 
same element as ACI) . 

In the following examples, the 
loop is not flagged: 

A(3) = ACI) 
ACI) = ACJ) 

In this case, since it is not 
known whether I can equal 3 or 
whether I can equal J, the loop 
is disqualified. 

The reason for this restriction 
is that the array element on the 
left will not be updated in 
storage if it is globally 
assigned. Therefore, it is 
necessary to know at compile 
time which references to array 
elements on the right should 
obtain values from storage and 
which should obtain values from 
the globally assigned registers. 
If this determination cannot be 
made, a global assignment is not 
made. 

The first 3 requirements are 
determined by Phase 1, the last 
i| by Phase 3. If all require- 
ments are met, the begin-loop 
entries are flagged for Phase 4, 
along with each EF item on the 
right-hand side that matches the 
assignment variable. 



In addition to the major function of 
Phase 3, many other functions are per- 
formed. A more complete description of 
Phase 3 is listed below. 



The program file CPRF) is scanned 
backwards. The expression file CERF) 
is scanned, when required, for the PRF 
item; and, a triad table is created 
for internal use with one entry for 
each unique expression. An operand 
pushdown table COPTl) is created to 
assist in scanning the ERF. The PRF 
and ERF are modified to form the PF 
and EF, which are treated separately 
by Phase 3. These files are relinked 
in the forward direction and inter- 
leaved into a new program file CPF) 
that is the input for Phase 4 . 



All variable and constant entries in 
the ERF are changed, with the OFFSET 
field replaced by a reference to an 
address constant and an immediate 
value of the displacement. The adcon 
is represented by a new type of entry 
introduced into the symbol table. 

All subscripts are rearranged. The 
adcon for the variable is placed in 
the expression, which is rearranged to 
remove the largest subexpression from 
loops, to handle loop variables by 
recursion, and to make use of double 
indexing. 

Common expressions are recognized and 
named. The point at which they are 
last used is marked. 



Section 5: Phase 3 95 



5. Expressions that can be computed out- 
side of loops for use inside 
("removed") are recognized and named. 
They are inserted in the EF at the 
loop top and removed from the EF 
inside, leaving a short "residue" 
entry there, 

6. Expressions that can be computed by 
recursive additions around a loop are 
identified, and one (for each loop) 
for use as a test of the loop is 
determined, Tli^' initial value, step 
values, and test value expressions are 
formed and treated as other expres- 
sions Csee items 4 and 5 above) • 

7. Quantities that are to be placed in 
registers and kept there over loops 
are determined and specified. These 
may be integer arithn^tic operations, 

subscript expressions, or address con- 
stants. They are determined on the 
basis of total time saved and number 

of registers that can be used for such 
purpos es . 

8. Each statement label entry in the sym- 
bol table is changed to contain a 

reference to an address constant (see 
item 2 above) . The adcon entry is 
given an estimated value based on the 
estimated location, which is then 
cleared. 

9. The formal arguments have variable 
adcons that must be computed at the 

preamble of a subprogram. These are 
listed in the formal argument adcon 
table (FAAT) for Phase t* . (The format 
of FAAT is explained in the module 
description "CEKKS Phase 3 storage 
CPSECT). ") 

A general description of the procedures 
used by Phase 3 to carry out its functions 
is given in the following paragraphs. 

Phase 3 makes a backwards scan over the 
PRF, rewriting it- By means of the links 
in the PRF, each value a variable assumes 
can be analyzed to determine the loops from 
which that variable can be removed and a 
point at which it can be first used in com- 
putation. This point is preliminary and 
can be moved if the PRF scan reaches a 
point where the value may change. Each 
reference to the ERF string from PRF 
entries causes a local forward scan over 
the ERF. An operand pushdown table is 
built and used during this scan. All 
operators are entered into the triad table 
for commonality determinations. Certain 
operators are put in a compute and removal 
item table (CRT) . Subscript expressions in 
the ERF are scanned twice. First, deter- 
minations of computation points, removal 
levels, and use of loop variables are made. 



Then the ERF is sorted into a new order, 
new operators are introduced, and the 
address constant is introduced into the 
expression. Finally, this new ERF is 
scanned again, and entries are made in the 
triad table and the compute and removal 
item table, as for other expressions. 

For DO loop processing. Phase 3 main- 
tains a set of loop tables for use in 
determining global register assignments, 
identifying loop variables, and determining 
removal levels. 



MEMORY REFERENCE PROCESSING 

During the processing of Phase 3, all 
references to variables and constants 
(including address constants) are replaced 
by references to an address constant and a 
displacement. Adcons are supplied for each 
storage class, with one separate adcon for 
each 4080 bytes. Adcons are supplied only 
when needed and are entered into the symbol 
table to be shared with all other parts of 
the program. Negative adcons (e.g., 
storage class base -4080) are allowed. 

In computing the values for adcon and 
displacement. Phase 3 uses the storage 
class, the assigned location within that 
class, and, in some cases, the offset from 
that location supplied by Phase 1. At all 
times the FORTRAN object program makes use 
of one register that can cover the special 
page, part of which is assigned to adcons. 

The adcon reference and displacement are 
placed in the Polish string for the vari- 
able. In addition, the reference to the 
original variable entry in the symbol table 
is kept for purposes of editing in Phase 5. 
When a subscript expression modifies a 
variable and the adcon is referenced in 
that expression, the adcon reference from 
the variable in the Polish string remains 
zero. 

Whenever constant subscripts result in a 
reference to other than the first byte of 
an array but no subscript expression 
occurs, a special subscripting operator is 

entered in the triad table. This operator 
is called the "S" or "Addressing" operator. 
This operator is strictly internal to Phase 

3; it is used only in the triad, not in the 

EF, to distinguish between references to 
other than the first byte of an array. 



COMMON EXPRESSIONS 

A common expression is one that is used 
more than once, but needs to be computed 

only once. Phase 3 determines the exis- 
tence of these in most cases? it gives each 
a distinct identifying number (name) and 
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marks one occurrence of this expression in 
the last Polish string in wnich it occurs 
as "last use." Three separate determina- 
tions must be made: 

1. It must be determined which expres- 
sions are identical in form. 

2. It must be determined that occurrences 
are necessary or "valid" (i.e., two 
occurrences as part of the same larger 
common expression require only one use 
of the smaller expression) . 

3. It must be determined that the expres- 
sion cannot change in value between 
occurrences. 

Identity is determined by the triad 
table. Every expression is changed to a 
triad (operator plus references to its two 
operands) that is identical for identical 
expressions. For each expression the triad 
table is searched to determine whether the 
expression is already there; if it is not, 
it is inserted. If the expression is 
already in the table, it may be a common 
expression, depending upon the results of 
the other two determinations. 

The determination of the occurrence of 
two valid uses is made by another 
algorithms whenever an expression occurs 
after the first time and either is part of 
a larger expression that is occurring for 
the first time or stands alone in a state- 
ment, this is the second valid occurrence. 
When this situation exists, it becomes 
necessary to mark previous occurrences 
(sometimes, in a previous larger expres- 
sion, there may be more than one that were 
not all valid). This is done by keeping a 
pointer in the Triad Table entry to the 
"last occurrence." Whenever an unnamed 
expression is entered or located in the 
triad table, a reference to the triad is 
made in the ERF string entry. Then, when 
an ERF string entry is copied into the EF 
without receiving a name, the pointer in 
the triad table is set to point to this EF 
string. At the time an expression is 
named, the EF string pointed to by the 
triad table entry is scanned, and the 
occurrences of this expression in that str- 
ing are recognized by the reference to the 
triad. The field used for that triad 
reference is now used for the name. 
Whenever a name is entered in an EF entry, 
the expression is changed to indicate a 
named expression; and, if this is "last 
occurrence," the "last use" flag is turned 
on. If a second valid occurrence occurred 
in the same string as the first, tne "last 
occurrence" field is X'8000». In this 
case, the "last use" bit is turned on in 
the current EF, and other occurrences are 
named later when the ERF string is copied 
into the EF. 



In order to determine that the value of 
an expression does not change. Phase 3 must 
consider the component of each expression. 
Every variable entry in the symbol table 
has pointers (FDP and BDP) to forward-and 
backward- linked chains in the PRF of its 
definition points. There are also linked 
chains for definitions of COMMON variables 
and definitions of arguments. COMMON 
variables are defined at their own defini- 
tion points. Arguments are defined at 
every definition point for any argument and 
for COMMON definition points. Every vari- 
able is also marked when it is a loop para- 
meter over any loop in the current nest, 
and it is, therefore, of fixed value over 
that loop. The loop tables indicate the 
range of every loop in the current nest (in 
terms of PRF entries) and indicate which 
loops are "unsafe" (have entry points from 
an outer loop) . By scanning this informa- 
tion. Phase 3 can determine which loop, if 
any, is the outermost loop from which ex- 
pressions containing only this variable can 
be removed. This level is entered in the 
symbol table entry for the variable as the 
RIiEV field (removal level). If the nearest 
definition point (forward) lies outside a 
loop from which the variable cannot be 
removed, the forward compute point (FCP) is 
set just inside that loop; otherwise, it is 
set at the nearest definition point 
forward. 



This determination does not take into 
account all possibilities that may limit 
the range of commonality. The other limi- 
tations are the occurrence of referenced 
labels, the occurrence of loop endings of 
unsafe loops, and the occurrence of the FCP 
(determined above) inside a new loop. 
These are determined as the PRF is scanned 
further and are used to terminate the range 
of the commonality if it has been set up or 
to prevent its being set up. 



The mechanism for keeping track of the 
range and terminating commonality is the 
compute and remove item table. Here every 
named expression has an entry that is keyed 
to the FCP (or the removal point) in the 
PRF. These are scanned in parallel with 
the PRF. For compute point entries the 
range of commonality is terminated when the 
point is reached. Whenever a loop end or a 
referenced label is reached that might 
limit the range of commonality of some 
entries, this table is consulted and the 
commonality terminated. Commonality is 
terminated by removing the name from the 
triad table entry and appropriately marking 
that entry. 



When a common expression is named, it 
must be determined that referenced labels 
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or terminating loop ends have not inter- 
vened between the "last occurrence" and 
this one- This can be checked by the loop 
tables and the backward chain of referenced 
labels. If such intervention has occurred, 
the expression is not named, and the cur- 
rent EF string becomes the last occurrence- 



REMOVING EXPRESSIONS FROM LOOPS 

Computing time can be saved when an 
expression that occurs within a loop can be 
computed outside that loop for use inside. 
Expressions that contain the loop variable 
and are common over the loop comprise a 
special case. Since a new occurrence is 
introduced at the point of removal, expres- 
sions that are removed are always treated 
as common, even if they occur only once 
within the loop. However, for purposes of 
producing better object code, it is not 
always desirable to remove an expression 
from Level Cthe false loop) if its only 
occurrence is at Level 0. Therefore, such 
an expression is treated as not removable 
at its first occurrence. If there are 
other occurrences, the first is marked com- 
mon with th«!i and the expression is treated 
as a normal removable expression. 

Some O'f the mechanism for handling 
removal is discussed above in the explana- 
tion of the determination of the removal 
level CRLEV) of expressions. If an expres- 
sion is part of a larger expression that 
can be removed, it is ignored within the 
loop and treated at the loop top when the 
larger expression is inserted there for 
computation outside the loop. If an expres- 
sion can be removed but the expression 
that contains it cannot, or : it stands 
alone, it is removed. At the first occur- 
rence of the expression within the loop, it 
is removed after it is given a name, after 
commonality with any previous occurrence 
(outside the loop) is established, and af- 
ter last usage is marked. Removal consists 
of placing a pointer in the compute and 
removal table at BLl, marking the triad 
entry properly, and replacing the Polish 
Expression in the EF by a residue entry 
with the expression name. 

A special type of removal expression 
occurs when an induction variable is 
involved in an expression that is not in a 
subscript. Here the variable has a compute 
point inside the loop {BL3) and is remov- 
able from the inner level. When such an 
expression is encountered, either as a com- 
mon expression or a removal item from an 
inner loop, a special test inside the com- 
monality routine allows the expression to 
be common, despite the possible interven- 
tion of labels. These items are removed to 
BL2, after their commonality is established 
and their last use marked. It is possible 



for such an expression to occur only as a 
residue and to occur elsewhere as a named 
expression that is still present. 

When the removal point is reached at 
BLl, BL2, or BL3, the Polish expression is 
reconstructed from the triad table and 
inserted in the EF, except for subexpres- 
sions that may be further removed. At this 
time, the commonality of all expressions 
and the removability of all subexpressions 
is treated in the same manner as expres- 
sions that occur elsewhere in the code. 



OPTIMIZING SUBSCRIPT COMPUTATION 

Terms involved in the subscript expres- 
sions are divided into four categories: 

1. An adcon 

2. Induction variable (or recursive) 
terms 

3. Removable terms 

4. Nonremovable terms 



The adcon for the subscript expression 
is always determined by Phase 3 from the 
SLOC field of the array variable and the 
offset that computed Phase 1. 



The terms of the expression are grouped 
according to the four types and then sorted 
by removal level. The adcon is always the 
most removable entry. The induction vari- 
able or recursive terms are considered spe- 
cial within a removal level group. A 
recursive expression is one that increases 
by a fixed amount each time through a loop. 
These expressions are treated specially, in 
that they are considered removable only to 
begin loop-2 of a level rather than to 
begin loop-1 as for a normal removable 
expression. Therefore, if two terms of a 
subscript expression have the same removal 
level but one is a recursive term and the 
other is not, the recursive term is consid- 
ered less removable for the purposes of 
sorting the terms. 



Special operators are introduced into 
the expression to separate the groups of 
sorted terms. A recursive operator (!) is 
used to mark the induction variable terms 
internally for Phase 3. Another special 
operator, the base/index split operator 
(?), is used to separate the nonremovable 
terms from all the removable terms. If 
there are no nonremovable terms, but there 
is a term of the form 'la*" where I is 
the induction variable of an innermost loop 
with no external calls, and 'a* is a con- 
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multiply expression (only possi- 
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operator can appear only once 
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method can be used to reference 

All other terms are connected 
ns. 



In this case, I is removable but is not an 

induction variable. 



/'■ 



/ 



/ \ 
CONST 



ADCON 



The best method for explaining this 
function of Phase 3 is by the use of expres- 
sion diagrams. The diagram, called a 
"tree, • can show the exact relationship of 
all terms of an expression. By convention, 
the left-hand operand of an operator repre- 
sents the left-most term of the original 
FORTRAN expression. Therefore, the expres- 
sion (A+B) is written. 



/ \ 



In this case, I is nonremovable. 



,/ 



ADCON 



CONST ZERO 



and the expression (B*A)+C is written 

/ \ 
/ \ 

B A 

With this basis, the subscript expression 
processing can be examined further. In the 
following discussion, all constants are 
referred to as CONST and all address con- 
stants as ADCON, since their actual values 
are not relevant. The operator that links 
the subscript expression to the array vari- 
able is the colon C:). A reference to the 
variable A CI) that comes into Phase 3 is 
essentially the same under any conditions. 
However, the Phase 3 output to Phase 4 
depends on the conditions of the variable 
I. The four possible output expressions 
are: 



/\ 



/\ 



CONST ' 



ADCON 



In this case, I is the induction variable 
of an inner loop with no calls. 



ADCON 




In this case, I is the induction variable, 
but the loop does not qualify to have a 
split subscript as in (c). 

To show the gathering of terms according 
to removal level, the tree for the variable 
BCI1,J2,I3,J1,I2,J3) is shown: 




/\ /\ 

CONST i3 CONST J3 



/\ /\ 

CONST 12 CONST J2 



.+ ADCON 

/\ /\ 

CONST fl CONST J1 



11 and Jl — removable furthest to level 
1; i.e., they are the most removable 
Cthe lower the removal level, the 
more removable the item is) , 

12 and J2 — removable to level 2, 

13 and J3 — not removable. 
None are induction variables. 
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Therefore, the completely general sub- 
script expression for an array variable 
appearing at level n can be described as 
follows : 



Array Variable 



A CollecHon of At 
Terms Not Removab 
From Level r», 

OR 




'A Split Subscript if 
the Induction Variable 
for Level M is the 
Least Removable Term. 



''A Collection of All Terms 

■olvtng the Induction 
Variable for Leve 

/A Coltection of All Terms Rernovable to 
\Begin Loop~l of Leve! n. 

/A Collection of Alf Terms Involving the Induction \ 
^Variable for Level (n-1). / 

/A Collection of All Terms I 
\Voriab1e of Level 1. 

/A Collection of All Terms Removable to Begin Loop-1 of ""^ 
Uevel L 

(A Collection of All Terms Removable to Begin Loop-1 of 



If there are no terms of the type indi- 
cated, the associated operator does not 
appear and, all terms below it are moved 
up. The only possible occurrence of the ? 
operator is immediately below the colon. 
Therefore, if there are any nonremovable 
terms, the right-hand operand of the colon 
is a question mark, since the adcon is 
always considered removable. Therefore, 
the operands of a question mark are always 
categorized in the same manner: the left- 
hand operand is the index expression and 
the right-hand operand is the base expres- 
sion (always removable) , thus setting up 
the base/ index method of addressing for 
Phase 4. 



The form shown above 
subscript expression is 
ly to Phase 3. In the f 
removable and recursive 
replaced in the EF by a 
indicates to Phase 4 the 
removed expression- The 
sions are then attached 
3L1 or BL2. 



for the generalized 
used only internal- 
inal form all 
expressions are 
residue entry that 
name of the 
removed ex pres- 
to the appropriate 



Two passes are made across each sub- 
script expression in order to accomplish 
the optimization. 

During the ERF scan the occurrence of a 
subscripted variable is indicated by a flag 

for that variable set by Phase 1. This 

flag is checked immediately after the adcon 



has been formed, and at that time the adcon 
is saved for later use. During the first 
scan, triads in the triad table are left 
unchanged with regard to occurrence flags, 
and new entries are marked as having no 
occurrences since the last compute point. 
During this pass no changes are made in the 
compute and remove item table. When a + is 
reached, the operand pushdown table con- 
tains entries representing a string of 
operands to be added to form the subscript 
expression Cin addition to any earlier 
entries) . The remaining -•- and : operators 
are ignored on this first scan, which is 
terminated at this time. 

The rearrangement subroutine CCEKKM) 
determines the number of operands (includ- 
ing the one it inserts; i.e. , the adcon) 
and sorts entries in the operand list. It 
then moves the ERF strings representing 
these operands to a temporary area. The 
program that moves them back in resorted 
order ope^ rates at two levels: one for the 
individual operand expression and another 
for each block of expressions that have the 
same sort key. At the end of each such 
block, an operator C-*-, I, or ?) is placed 
in a pushdown list and later used to con- 
nect this block to the others. Sufficient 
+ operators are inserted in the string at 
the end of each block to connect the 
operands in the block. Tests are made to 
determine the location of the adcon. The 
main ERF scan is reset to start again at 
the beginning of the subscript expression. 
Phase 1 has inserted two extra -i- operators 
following the : to allow for the insertion 
of the adcon and the proper operator C+, I 
or ?) . 



LOOP \/ARIABLE EXPRESSIONS 

The induction variable is always given a 
forward compute point at begin loop- 2 of 
its respective loop. When an induction 
variable is recognized inside a subscript, 
it causes the recursive operator as 
explained above. When an induction vari- 
able is recognized outside of a subscript, 
the materialize flag is set for the loop 
and special processing is applied to common 
expressions involving the induction vari- 
able. The special i operator is also used 
whenever an induction variable occurs out- 
side a subscript. This is necessary to 
distinguish references inside and outside 
its loop and to prevent erroneous marking 
of common expressions. 

When the begin loop- 3 entry is reached 
at the loop top, all expressions removed to 
begin loop-2 are examined. All those that 
do not have an exclamation point as the 
major operator are really BL3 items. A 
flag indicates whether any labels have 
occurred in the loop. If none have 



lOB 



occurred, the nonsubscript loop variable 
expressions are common within the loop and 
require no special- treatment at the loop 
top, except to terminate the range of their 
commonality. If a label has occurred, 
these expressions must be co'ipputed at the 
loop top just inside the loop. They are 
reconstructed in the EF and attached to BL3 
for this purpose. 

The recursive expressions are attached 
to BL2, '#irith modification to perform the 
recursion optimally. Each recursive ex- 
pression is considered in two parts. The 
right-hand operand of the exclamation point 
can be an expression or an adcon; it repre- 
sents the initial value of the expression. 
The left-hand operand represents the amount 
by which the recursive expression is 
stepped at the bottom of the loop. Phase 3 
locates the induction variable in the step 
expression and replaces it with the step 
parameter of the loop. 

When the materialize flag is on for a 
loop. Phase 4 tests for the end of the loop 
with the loop parameters. When the 
materialize flag is not on for a loop, 
Phase 3 creates a test expression from one 
of the recursive expressions for use in 
testing the end of the loop. 



GLOBAL REGISTER ASSIGNMENT 

The general registers are used for 
integer arithmetic expressions, subscript 
expressions, adcons for variables and con- 
stants , address constants for control 
transfers, and other purposes. Phase 3 
considers certain uses of them for per- 
manent assignment over one or more loops 
and if the most time can be saved this way, 
makes such permanent assignment. (The 
actual register to be used is determined by 
Phase 4.) A limit (currently 8) exists for 
the number that can be assigned to ensure 
that sufficient registers remain to allow 
Phase 4 to generate efficient code. 

When the loop lists are initialized at 
any end loop PRF entry, a null chain is set 
up of candidates for global assignment over 
that loop. Whenever any expression occurs 
as a candidate, the chain is searched and 
that expression is found or inserted. A 
popularity count associated with this usage 
is added to the cumulative popularity count 
for that expression over the current loop. 
At the loop top (BLl) these entries are 
sorted by popularity, and the process of 
determining successful candidates is 
started. 

The loop lists have a linxed chain con- 
necting all the loops one level higher 
(inner) and parallel to each other- The 
process of determining successful candi- 



dates at this level, readjusting the lists 
for these internal loops, and placing the 
results for Phase 4 requires that there be 

three passes over the chain of internal 

loops. 

A first pass over the chain of parallel 
inner loops actually determines a success- 
ful candidate- For each inner loop, a test 
is made to determine whether the expression 
has already been assigned globally or if 
the total count of global registers is less 
than maximum. If neither condition pre- 
vails, the candidate cannot be assigned 
globally, and it is removed from the outer 
loop list. A count is kept for the outer 
loop (there may be no inner loops); and, if 
that count reaches the maximum, the 
renainder of the list is removed. 

Immediately after the first pass, a 
second pass over the chain of inner loops 
is made for each successful candidate at an 
outer loop. This pass updates each intern- 
al list by increasing the count for that 
inner loop, if the candidate was not pre- 
sent in the inner loop. 



The final 
loops is made 
date list has 
takes the ass 
renaining for 
are not globa 
them into the 
This makes a 
unsafe loop t 



pass over the chain of inner 
after the outer loop candi- 
been exhausted. This pass 

igned global expressions 
each inner loop (those that 

1 in the outer loop) and links 
chain of the outer loop. 

candidate available through an 

o level 0. 



Phase 3 also selects, for Phase 4, one 
floating point constant or (in its backward 
scan) one floating point variable which is 
referenced in an inner, safe loop with no 
external calls. Phase 4 will load this 
quantity into a register outside the loop. 



ROUTINE DESCRIPTIONS 

Phase 3 routines bear only coded labels. 
These 5-character labels begin with the 
letters CEK; the fourth and fifth letters 
identify a specific module. Various entry 
points to a module are identified by a 
sixth character added to the coded label; 
for example, the coded label for the Phase 
3 master control routine is CEKKR, and 
there are entry points CEKKRA and CEKKRE. 
Any mnemonic name beginning with the let- 
ters TEV refers to a compiler executive 
routine or entry name, rather than to a 
Phase 3 routine. The corresponding coded 
label is given in parentheses immediately 
following the mnemonic. 



There are no hardware configuration 
requirements for any of the Phase 3 rou- 
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tines. All these routines are reentrant, 
nonresident, nonprivileged, and closed. 
All except the Phase 3 PSECT CCEKKS) and 
the Phase 3 Master Control Routine CCEKKR) 
use restricted linkage, are entered by the 
INVOKE macro instruction, and return to the 
calling routine by the RESUME macro 
instruction. 



The relationships of routines constitut- 
ing this phase are shown in the following 
nesting chart (Figure 22) and decision 
table (Table 23). The relationships are 
shown in terms of levels? a called routine 
is considered to be one level lower than 
the calling routine. Phase 3 Master Con- 
trol routine is considered to be level 1. 



Level 
1 



CEKKR 



J 



CEKKE 



CEKKVV 



CEKLI 



! TEVI4 I 



CEKKO 



V ir V ir 



J~ZL 



' TEVI4 



CEKKC 



VL 



CEKKA 



L-J""^ 



TEVRDM 



CEKKU 



( TEVFL4 j 



CEKKV 



1 



CEKKE 



CEKKF 



\^ u 



CEKKH 



CEKLB 



CEKKG 



CEKKP 



CEKKM ; j CEKKL 



CEKKI 



CEKLF 



CEKKN 



CEKKJ 



CEKLD 



CEKKK 



izn 



CEKLA 



CEKLE 



Figure 22. Phase 3 Nesting Chart 

Table 23. Phase 3 Decision Table (Part 1 of 4) 



Routine: 

^ — . ^ — ^-. 

I 

Routine | 

H— + 

CEKKR 



-Phase 3^ ■ — • — ■ • — • ^ • — "-■ Level : 1 



Usage 



^- ^ 

Called 

Routines 



Directs the sequence of 
processing prior to 
editing of each of the 
PRF/ERF entries into 
PF/EF Output - 



-+- 



CEKKU 
CEKKB 

CEKKA 

TEVRDM 
CEKKO 



Calling Conditions 



To edit each PRF entry - 

To generate removed, recursive, and induc- 
tion variable expression at loop tops. 

To search the Compute and Remove Table for 
Triad entries pointing to the current 
PRF entry. 

To print a diagnostic message when an 
error condition is encountered in any 
part of Phase 3. 

To tally popularity for global register 
assignment of reciirsive expressions. 



H 
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Table 23. 



Phase 3 Decision Table (Part 2 of 4) 



Routine 2- 



-Phase 3 ^ — ■ — • ^ ■ ^ — ^ ^Level : 



— -, 



I I called I 
Routine | Usage j Routines | Calling Conditions 
1 + ^ ^^_„ 

CEKKU I To edit each PRF entry |CEKKE [When an ERF expression is to be processed. 

I into an equivalent PF | CEKKV |To process the Begin Loop-1 PRF entries. 

I entry performing the JCEKKW |To process the Begin Loop- 2 PRF entries. 

I necessary functions to j CEKKC | To process the End Loop PRF entries. 

I accomplish this, in [CEKKO |To tally global register popularity for 

I addition uses subrou- | | the code covering Adcon. 

t tines to edit the asso- |TEVFL4 |To file a Symbol Table entry for an Adcon 

I ciated EKF entries into] (CEKTPI) j to cover branches in the object code. 

I the EF format | | 
^ ^ ^ ^ „ 

CEKKB |To generate removed | CEKLB |To file an Adcon entry in the Symbol Table 

I expressions at Begin | | covering a variable and compute the 

I Loop-li recursive | | displacement. 

I expression at Begin | CEKKO |To tally the popularity for global 

I Loop-2; and induction | [ register assignment for Adcons and 

I variable expression at | | integer expressions. 

I Begin |TEVI4 | To file a Symbol Table entry for a new 

I I CCEKTFC) I generated constant for recursive 

I I I expressions. 



L - 



-X_. J- 



— . . . J 



Routine:^ • — Phase 

r ^ — 



-Level: 



CEKKE 



CEKKW 



h 



CEKKV 



— + 



Controls the processing 
of an expression in the 
by the use of subrou- 
tines, and the editing 
into the EF. 



To process the Begin 
Loop-2 PRF entry. If the 
loop is to De iT«terial- 
ized, loop parameters 

are put into the EF; 
otherwise, a test ex- 
pression is generated by 
subroutine. 



To process the Begin 
Loop-1 PRF entries. 
Determines which candi- 
dates are to be globally 
assigned. 



CEKKF 



CEKKH 

CEKKI 
CEKKM 

CEKKL 



CEKLF 



^ ^^^ , , ^ 

Entered when a primitive is encountered in 

the ERF to generate the OFTl entry and 

modify the ERF entry. 
To create a Triad entry when an operator 

ERF entry is encountered. 
Entered for each operand of an expression. 
Entered to process a subscript expression 

when the first plus is encountered. 
Entered when an expression's operands have 

been processed to generate an OPTl entry 

for the expression. 
Entered when the complete expression has 

been processed to move it from the ERF 

to the EF. 



CEKLI 
CEKLB 

CEKKO 



None. 



H 



-+- 



Entered when a test expression is to be 
generated for the loop. 

Entered to file a covering Adcon and 

determine the displacement for each loop 
parameter when the loop is materialized. 

To tally popularity for global reg- 
ister assignment for the induction vari- 
able if the loop is materialized. 



H 



CEKKC 



To process the End Loop 
PRF entries 



CEKKA 



CEKKG 



-J- 



To find those Triads whose Forward 
Compute Point falls within the loop so 
they can be deleted. 

Entered for each loop parameter to deter- 
mine the removal level and the forward 
compute point. 
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Table 23. Phase 3 Decision Table (Part 3 of 4) 



Routxne:- 
r' " — ■ 

Routine 
CEKKI 



-Phase 3- 



-Level: 



Usage 

To process each operand 
of an expression. If it 
is primitive, the Adcon 

is considered for global 
assignment. If it is an 
expression, it is con- 
sidered for removability 

or commonality. 



CEKKA 



4" 



CEKKL 



Called 

Routines 

CEKKJ 
CEKKK 



To search the Compute and 
Remove Table for Triads 
which fall within the 
requested PRF limits. 



To form an entry in the 

OPTl representing an ex- 
pression as an operand. 



CEKLE 



CEKLD 



CEKKO 



Calling Conditions 

To determine if two expressions can be 

considered as common. 
Entered to name each common and removed 

expression. 
Entered for removable expressions to file 

as entry in Compute and Remove Table. 
Entered for removable expressions to 

replace the expression with a residue 
entry in the ERF. 
To tally popularity for global register 
assignment for Adcons and removable 
integer expressions. 



None. 



None. 



CEKLF 



To copy the edited ERF 

entries for an expres- 
sion from the ERF to the 
EF, inserting the newly 
created entries where 
indicated. 



None. 



CEKKF 



To update the Symbol 
Table entry of a vari- 
able Cby subroutine) , to 

change the ERF entry to 
reference an A.dcon and 
displacement, and to 
form an entry in t he 

OPTl for the operand. 

Also, a dummy expression 
is generated for special 
conditions. 



CEKKG 



CEKLB 



Entered for each variable ERF item to find 
its removal level and forward compute 

point. 
Entered for each variable ERF item to file 
a covering Adcon in the Symbol Table 
and compute the displacement. 

Entered when a dummy ("at") Triad is 

generated for an induction variable or 

a variable with an associated o^ffset, 
to file the entry in the Triad Table. 



H 



H 



CEKKH 



To generate a Triad from 
an ERF operator and two 
operands in the OPTl. 



CEKKN 



CEKKP 



Entered for all expressions except those 

inside subscripts to put the operands 

into canonical form. 

Entered for all expressions to file the 

Triad entry or locate its previous 

existence. 



CEKKM 



To revise a subscript 
expression to include 
the Adcon and optimize 
the loop variable and 
removed expressions. 



None. 



™+- 



CEKLI 



To generate and insert 
into the EF a test ex- 
pression to be used at 
bottom of a loop to test 
for the end conditions 
of the loop. 



CEKLB 



CEKKO 



TEVI4 
CCEKTFC) 



"+- 



Entered for each loop parameter which not 
a constant to file a covering adcon in 
Symbol Table and compute displacement. 

To tally popularity for global register 

assignment for covering adcons and inte- 
ger expressions - 

To file a Symbol Table entry for a con- 
stant generated from the combination of 

other constant forms in the test 
expression. 
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Table 23. Phase 3 Decision Table (Part '4 of 4) 



Rootine: • Phase 3 ^ — • • Level : 5 



h 



Routine 



Usage 



Called 
Routines 



Calling Conditions 



CEKKJ 



To determine if two oc- 
curences of an expres- 
sion are coirtmon. 



— + 



CEKLD 



To replace a removed 
expression in the ERF 
with a residue entry - 



None. 



CEKKO 



+- 



h 



CEKKN 



f 



To find a GIRL entry and 
add in the new popular- 
ity count or, if none 
already exist, to create 
a new GIRL entry. 



None . 



To put the operands of an 
expression into canoni- 
cal form to facilitate 
finding common expres- 
sions. 



None. 



H 



CEKKK 



To assign a name to a 
common or removed 
expression, and by sub- 
routine 1) put the name 
into the previous occur- 
rence of a common ex- 
pression, and 2) file 
a CRT entry for the 
expression. 



CEKIA 
CEKLE 



Entered when a previous occurrence of the 
expression is to be marked common in EF. 

Entered for every named expression to file 
an entry in the Compute and Removal 
Table at the forward compute point of 
the expression. 



CEKKP 



To enter new expressions 
into the Triad Table, 
locate common Triads , 
and delete obsolete 
Triads. 



None. 



CEKKG 



— + 



To determine the removal 
level and forward com- 
pute point for a vari- 
able and store the 
information in its 
Symbol Table entry. 



None • 



Routine: — 



-Phase 3— • ^ — ■ ^ • Level ; 



CEKLB 



CEKLA 



To file a covering Adcon 
entry in the Symbol 
Table, compute a vari- 
ables 's displacement, 
and file entries in the 
Formal Argument Adcon 
Table 
+ ^ 

To replace a removed 
expression's ERF repre- 
sentation with a residue 
entry. 



CEKLE 



To file an entry in the 
Compute and Removal 
Table at the indicated 
PRF location. 



TEVFL4 
CCEKTFI) 



None. 



None. 



Entered for each variable to file cover- 
ing Adcon in the Symbol Table. 
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CEKKS — Phase 3 Storage CPSECT) 

This routine supplies storage for Phase 
3. 

A brief description of most table and 
item formats follows. Most other variables 
will occupy one word. The Phase 3 Storage 
map is shown in Figure 23. 



Phase 3 Loop Tables 

1. LEV - 1 full word, contains the level 
of the current loop. 

2. Current Nest Table CCNT) (Fixed, 55 
entries long) : 







15 16 



31 



TLINK 



PLINK 



TLINK Loop in current nest, this 

level CPLP) 
PLINK Chain of parallel loops, next 

level (PLP) 

CNT is 224 bytes; the 55 allowable 
entries require 220 bytes, and the 
false loop over the whole program 
accounts for the remaining four bytes. 



Parallel Loop Table (PLP) 

15 16 23 24 31 

J. -^ , -J. , — , — ^ _ — ^ 

1 BL3PT I BLIPT | 

^„ ^„, ^ . ^ 

I ENDLPT I GPLNK | 

|.™ . . + ^ .^^^ ^ 

I PLINK I GPN IPLPFLGS | 

|. 1„ X ^ 

I BL2PT I IVhR I 

L . , -L . J 

BLIPT, BL2PT, Begin-loop entries (PRF) 

BL3PT 

ENDLPT 

GPLNK 

PLINK 

GPN 

PLPFLGS 



IVAR 



End- loop entry (PRF) 

Chain of global register 

expressions 

Link in parallel loop 

chain 

Number of global register 

expressions 

80 = Labels occurred in 

the loop 
40 = Unsafe loop 
20 = Materialize loop 

variable flag 
10 = Parameter 
08 = Global flag 
04 = BXLEREC flag 
02 = ONEASN flag 
Symbol Table entry of the 
induction variable 



V. 



2nd page/ 



Pages 3-16 



1 



Save Area - 76 bytes 



Constants and Masks - 48 oy 



Address Constonf-s - 200 n^te-; 



l"ai/idual Save Areas - ::0C by 
Linked Chains - 36 bytes 



Temp Storage - 2'^0 bvres 
pLmmy Table Entries - '64 byes 



Plags - 17 by'-es 



Current Nest Table - 224 bytes 



CPTl Table - 1024 bytes 



HASH Table - 1024 bytes 



(Not Jsed) 



Intercom - 512 bytes 

Error Messages - 378 by+es 

Special Type Table ~ 18 b/tes 

•Tiy Parallel Loop Table entry for '-1' level -12 bytes 



Work Area Used for Temporary Storage, Triad Table, 

Porallel Loop Table, Global Register List Tabie^ 
SERF Table, and Compute and Removal Table-56,844 



Reentrant Code 



cufable Code Plus Constants -10,000 bytes 



Figure 23. Phase 3 Storage Map 



Global Register List (GIRL) (Linked, 
Permanent) 

15 16 31 

^ _ ^, ^ ^ — -J 

1 GLBL I GPLNK [ 

|. , + .^^^ ^ 

I POP 1 Not Used I 

i-.. . . , X J 



GLBL The name of a global expression for 
this loop, or a Symbol Table pointer 
for an Adcon. The name will have 
7000i added to it to distinguish it 
from a pointer 

GPLNK Link in global register chain 

POP Popularity count for candidates 



Link Pointers 

During the PRF scan in Phase 3, chains 

of PRF items occur in pairs, one going for- 
ward (unprocessed) and one going backwards 
(has been relinked by Phase 3 in opposite 
direction) . Phase 3 keeps a pair of point- 
ers to head each chain. Compute point 
entries are processed before the PRF entry 
to which they are attached. 
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^ , , ^ -l.— -J. — ^ 

I |PRF I Forward 1 Backward 

I Chain | Field] Head j dead 

[Variable Defini- | VDP | FDP |BDP 

I tion I i C3YM)=»-| CSYM)^ 

I Common Definition | CDP | CFDP | CBDP 
|PRF Entries j ILNK | FLINK [BLINK 
I Label Definitions | LLNK | LFDP j LBDP 

. X-. X . i - 



I- 



^These fields exist for each variable and 
jare in the symbol table entry for that 
variable. ' ^ 



Operand Piishdown 

Type 1 Entry - For Generating Triad Table 
78 15 16 31 



OPTRDl 



I 

j. 

I OPCNT 

|. ^ -^ 

j OPRLEV I OPFLGS 

L . -L 



OPTFCP 
OPOLSH 
Not Used 



H 



-H 



OPTRDl 

OPTFCP 
OPTCNT 
OPOLSH 

OPRLEV 
OPFLGS 

Name 
OPFI 



Reference to Triad Table or Symbol 

Table 

Forward Compute Point 

Length of expression in Polish 

ERF pointer to Polish expression 

(right end) 

R emova 1 Le ve 1 

There are seven flags: 



Bit 
8 



Setting 




OPSIGN 


9 


1 


OPLVF 


10 


1 


OPPLF 


11 


1 


ATF 


13 


1 


RSEF 


14 


1 



IVhRF 



15 



Type 2 Entry 



Meaning 
OPTRDl is a Symbol 
Table Pointer = 
Primitive 
OPTRDl is a Triad 
Table Pointer 
Sign Flag 
Loop Variable 
Flag 

ERF Insert Flag 
At Operator Flag 
Removable Subexpres- 
sion Flag 

Induction Variable 
Flag 



For Generating Expression 
File Entries for Removed 
Expressions 



OPTSW 



7 8 

— :^. — 



OPTSN 
OPTSN 



15 16 



31 



! 



OPTTRD 



OPTSW Switch, used to determine the 
stage of processing an item 



OPTSN Sign, used to store sign of the 

operand 
OPTTRD h Triad or Symbol Table pointer 

(determined by OPTSW setting) 



Triad Table Entry 

8 16 18 24 26 31 

J. ^. ^ . ^^. — ^— ^ ^ — ^ — ^ _-j 



TRLNK 



TROPl 



OP I f^ I .?! OP I 



^.„X>«X X_^X-_J 1 

I TR0P2 1 



^„ +_ ^ 

I TRNAME 1 TRFCP j 

|.„^ „^^„^ ^ ^^, ^ 

I TRFLAG j TRRLEV | TRTYPE | TR2NDF | 

L , . L , JL . 1 . J 



TRLNK 

TRFIl, 

SIGNl , 

SIGN2 

OP 

TROPl 



TROP2 
TRNAME 



Links to next entry in a chain 
from a hash table. 
TRFI2 File Indicator 1, File Indica- 
tor 2 

Sign for OPl and 0P2, 
respectively 

Operator — Same as code in EF 
Form 2 format 

First operand (Triad or Sym- 
bol) [for : and a, 
di splacemen t ] 
Second operand (Triad or 
Symbol) For : and a, variable 
(symbol). Also see TRTYPE, 
below. 

NAMEF = 0, link in chain of 
OFLAG = 1 Triads for last 

occurrence here. 
NAMEF = 0, link to new Polish 
QFLAG = expression for 

last occurrence. 
NAMEF = 1 name of this 

expression. 



TRFCP 
TRFLAG 
TRRLEV 
TRTYPE 



Forward compute point (PRF) 

See TRTYPE, below. 

Removal level 

The ID field from the ERF 

entry of the operator is saved 

to determine the type of 

expression- 

(See Code and Type fields in 
the EFID in EF form 1 format) 



The search key for entering the triad 
table consists of the seven fields: OP, 
OPl, 0P2, FIl, FI2, SIGNl, and SIGN2. 
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J.. .««. ^. 

TRFLAG I Flag Name | 

1^ ^ 

ZEROF 



TR2NDF 



I-" 



FIRSTF 



NAMEF 
QFLAG 



REMOVF 
LUF 

NCOMPF 

COMAF 



h" 



FRCFLG 
CPFLAG 



I 



CRTF 






TRiVF 



SPLTTRD 



I . 

I COMAF 

i_„ 



Bit Position | 

' ^ ^ 

X"80« 



Meaning j 



1 Meaning 



X"40« 



X»20' 



X'10« 

X'08' 
X'OH' 
X'02' 

X«01« 



X'80' 



X»40» 

X'20» 
X'10» 



X*08' 






No Reference 
since Compute 
point 



Other 



(See NAME 
above) 



Other 









Other 
Other 
Other 

Other 



Other 



Other 



Other 



Other 



Other 



Other 



First reference 
since compute 
point 



This EF location to 
be saved in 

Triad 



Has been removed 

EF 'Last- use* bit 
has been set 

Expression not removable 
on its own 

Operator is a 
comma, double comma, 
or question mark 



Exp. must be 
generated at BL3. 



Level Zero 

removable expression. 






Special BXLE c 

Recursive Triau 



X"01« I Other 

-, L . 



I 



Polish Insertion Entries 



When an integer is an operand of a non- 
integer expression. Phase 3 inserts a float 
operator by means of two entries in the ex- 
pression file, a primitive "FLOAT* con- 
nected hy the operator "FUNCTION." Prior 
to the time that the ERF is copied to the 
PF, insertions are indicated by entries in 
a linked file SERF. An entry to this file 
is as follows: 



15 16 31 

1 SLNKT I ILNKT | 

I Word 1 I 

I Word 2 I 

L-. , . .^ ™.. . . — J 



SLINKT 
ILNKT 

Word 1 

and 
WORD 2 



Link to next entry in this chain 
Link to ERF entry this insert 
precedes 

A normal ERF entry 



Compute and Removal Item Table 



I FCP 



15 16 

— ^-r — ' 



CPLNK 



31 

-""1 



not used 



I 






TRIAD I 



FCP Forward compute point 

Cor removal point) 
CPLINK Link to other entries 
TRIAD Expression in Triad Table 
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For insertions a hash tabl 
using the low order- n-bits of 
ing to a chain. Entries in t 
sorted on FCP (highest first) 
sertions precede earlier inse 
table is scanned by a pointer 
chronized with the PRF scan f 
entries at the proper time. 
entries are distinguished by 
Begin Loop-1 PRF entries. 



e is entered, 

FCP and link- 
he chain are 
Later in- 
rtions. The 

which is syn- 
or removal of 
Remo va 1 
having FCP at 



Hash Table for Compute and Removal Table 
(CRT) and Triad Entries (HCRT) 

Those entries serve as dummy first 
entries for the linked chains of CRT 
entries and for the linked chains of triad 
entries. This table has 256 entries. 

3 15 16 31 

j.«_____ ^^^ . ^„, — ^ 

j LINK I CPLNK I 

L , J. , ^. ^ J 

LINK For Triad items the fields OPl and 
0P2 are added together, multiplied 
by 4, and the low- order 12 bits of 
that result are used as the index 
into this table. 

CPLINK For CRT items the low-order 12 bits 
in a PRF address fonci the index 
into this table. 

Formal Argument Mcon Table 

Some adcons assigned to storage class 4 
are actually not constants but are 
variables which must be computed by the 
preamble at any entrance of the subroutine. 
These are the adcons referring to storage 
classes 128 through 253 reserved for the 
parameters Cdummy arguments), one per argu- 
ment. In order to specify these adcons to 
Phase 4 for preamble generations, a list is 
prepared by Phase 3. The entries to this 
list are 







7 8 



^ . ^ ^^- 

I Not Used I 

L -L- 



STCL I 



15 16 

-T 



Sym. 



31 
— -i 



STCL Storage Class 

Sym Symbol Table pointer 

for the Adcon 

CEKKR — Phase 3 Master Control Routine 



PRF item. These items are scanned in 
reverse order. When the end of the PRF is 
reached, CEKKU sets a flag, and CEKKR 
returns to the Exec- All errors found by 
other routines of Phase 3 are handled by a 
special entry in CEKKR. See Chart CV. 

ENTRIES ; 

CEKKRA This is the point where the Exec 

enters Phase 3 by a standard link- 
age (CALL macro instruction). 

CEKKRE This is the error exit for all rou- 
tines within Phase 3. The entry is 
made by restricted linkage (INVOKE 
macro instruction) . The only pa- 
rameter is in register P2. This is 
a pointer to the error message pa- 
rameter list. 

EXITS ; The routine exits to the Exec by a 
standard linkage (RETURN macro instruc- 
tion) . The value in register L3 indicates 
whether it is a normal return (value =3) 
or an abort return (value = 8) . 

The routine detects no error conditions 
of its own, but does handle the errors of 
all the other routines of Phase 3. 

OPERATION: Upon entry, the standard proce- 
dure is used to save the registers and lo- 
cate the PSECT belonging to Phase 3. The 
intercom area is moved from the exec' s 
PSECT to Phase 3's PSECT. Register Nl is 
loaded with the intercom location. After 
the PSECT has been moved into the GET MAIN 
area, the location of the first page of the 
GETMAIN area is loaded into register LI. 
The location of the second page of the GET- 
MAIN area, which is the new intercom loca- 
tion, is loaded into register Nl. Register 
N2 is loaded with the first available loca- 
tion in the working storage area. The 
location of the first entry in the PRF is 
calculated and put into register P5 . The 
location of the first available word in the 
PF is calculated and put into P6 . The 
limit of the PF is calculated and saved in 
PFLIM. 

The CEKKA subroutine is invoked, for 
each PRF item, until no qualifying entry in 
the compute and removal table is found. 
For each CRT entry returned by CEKKA, CEKKB 
is entered if the current PRF entry is a 
Begin Loop 1, 2, or 3 item. If it is not, 
the CRT entry is deleted from the table. 



This is the entry point from the Exec. 
The intercom area is initialized. The 
PSECT is moved into the GETMAIN area, and 
the adcons that point to areas within the 
PSECT are relocated. The work area is 
initialized, necessary parameters stored, 
and proper registers filled. The proper 
subroutines are entered for processing each 



Each begin loop 3 item goes through the 
CEKKA circuit twice, first pointing to 
itself then pointing to the begin loop 2 
PRF entry. On the first pass, a qualifying 
CRT entry returned from CEKKA is deleted if 
the forward compute point is less than the 
current PRF location, or if the FRCFLG is 
not on in the triad entry and the "label" 
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flag is zero in the PLP entry. Otherwise, 
CEKKB is entered to generate the expres- 
sion. On the second pass, the CRT entry is 
deleted if the operator of the traid is not 
an I (indicating a recursive expression). 
For the recursive expression triads, a flag 
is set indicating that this loop need not 
be materialized. Then, the popularity of 
the expression is increased by CEKKO. When 
CEKKA returns a zero in register P2 , the 
flag for the first begin loop 3 pass 
C HOLDS 3) is checked. If it is on, the 
second pass is set up and the flag turned 
off. During the second BL3 pass, all 
recurs ives are examined to detentiine if 
there is a "BXLE on recursive • candidate. 
The following checks are made: 

1. The recursive must be a special split 
subscript. That is, the least remov- 
able part of the subscript must be the 

induction variable. 



CEKKO routine is invoked. Upon return from 
CEKKU, the end flag (ENDIT) is checked. If 
it is off, the routine returns to enter 
CEKKA again for the next PRE item. If the 
end flag is on. Phase 3 ends. The regis- 
ters are restored, and return is made to 
the executive by standard linkage (RETURN 
macro instruction) . 

At the entry point for errors CCEKKRE), 
the executive subroutine CEKTE is called to 
output the error message. Upon return, 
register L3 is set to 8, to indicate an 
abort condition. The routine exits through 
the same procedure as for a normal exit. 

CEKKD — PRF Processing Routine 

This routine manipulates the PRF entry 
into its proper PF format, performs any 
necessary linking, and writes the entry 
into the PF. See Chart CW. 



2. The step on the recursive must be a 
positive constant. Note that the loop 
step is not included in the subscript 
expression at this time. CEKKB 
inserts it at BL2 processing. 

3. The loop step must be a constant. 

4. The loop must not be marked for 

materialization- 

Of all the candidates passing the require- 
ments, the one with the highest popularity 

count is retained. 

At the end of the second pass, if a BXLE 
recursive was selected, the CRT entries are 
relinked so that the selected recursive is 
the one last seen by Phase 4, and the one 
for which the test expression will be 
created by CEKLI. 

CEKKO is then called to increase the 
popularity of the recursive to the maximum, 
to ensure its global assignment by CEKKV. 
When both passes at begin loop 3 have been 
completed, the materialized byte is checked 
to see if a recursive expression was found. 
If none was found and the global flag is 
off, or if the ISD option is on in inter- 
com, the materialize flag is set in the PLP 
item. 

For each completion of the CEKKA cir- 
cuit, the ID of the PRF entry is checked 
for a "label" or an "alternate entry" item. 
For labels, the "referenced" flag in the 
symbol table is tested. If it is on, CEKKA 
is entered and all the CRT entries deleted. 
For alternate entries, all CRT entries are 
deleted by using CEKKA and pointing to 
X'7FFF' or to the absolute beginning of the 
PRF. No triads can be carried past an 
alternate entry- Upon completion, or if 
the PRF entry was not one of those two, the 



ENTRIES ; The entry point is CEKKUA. 
Register P5 contains the location of the 
current PRF entry, register P6 contains the 
location of the next available word in the 

PF, register Nl covers the Intercom area, 
and register LI covers the work area. 

EXITS: Register P5 contains the location 
of the next PRF entry, register P6 contains 
the location of the next PF word, register 
Nl covers the intercom area, register N2 

covers the unused working storage, and 
register LI covers the %K>rk area. 

Two error conditions are detected: 

1. An illegal ID in the PRF. 

2. The PF table overflowed. 

For all cases register P2 is set with 
the location of an error message parameter 
list in the PSECT, and the standard phase 
error processor CCEKKRE) is invoked. 

OPERATION ; The registers are saved by the 
STORE macro. The ID code of the PRF is 
converted to an index by multiplying it by 
four. An internal branch table is used to 
direct the routine to the proper processing 
section. If the ID is zero, or greater 
than the maximum, the error exit is taken. 

Each item is processed by rearranging 
(if necessary) the fields of the PRF to 
conform to the PF format. In many cases 
entire fields are deleted? in other cases 
fields are modified (refer to the format 
diagrams of the PF items in Appendix A) • 

1. Begin Program (ID = X»l') . The end 
flag (ENDIT) is set. If the program 
being compiled is a main program, a 
dummy ENTRY statement is inserted into 
the PF. Return is to CEKKR. 
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Enter (ID = X*2') and Alternate Entry 
(ID = X* 3* ) . For a subprogram entry 
( ID = 2> the end flag CENDIT) is set 
to mark the end of the ^RF. Each 
argument symbol table index (ASTX) is 
used to obtain the corresponding 
storage class (STCL) from the symbol 
table. These are stored in the PRF. 
The label relink (a Phase 3 internal 
subroutine described below) subroutine 
is entered. Opon return, the length 
of the PF entry is computed and the 
Variable Move routine Ca T3hase 3 in- 
ternal subroutine, described below) is 
entered. 

Label Definition (ID = X'4') . The 
label relink subroutine is entered. 
Upon return, the label flag bit in the 
PLP entry of the current loop level is 
turned on if the "Reference" flag is 
on in the symbol table. The fields 
are packed and the Two- Word Move rou- 
tine (a Phase 3 internal subroutine, 
described below) is entered. 

Equation (ID = X'5') . EXSN (expres- 
sion scan subroutine, a Phase 3 inter- 
nal subroutine, described below) is 
entered for OPDl. Upon return, the 
symbol table location stored by CEKKE 
is used to enter the Variable Relink 
subroutine. EXSN is then entered for 
0PD2 . Upon return, the Common Relink 
subroutine is entered. Upon return, 
the fields are rearranged and the 
Four-Word Move routine entered. 
(Variable Relink, Common Relink, and 
Four -Word Move are all Phase 3 inter- 
nal subroutines, described below.) 



GO TO (ID = X«6«). 



The symbol table 
(LLNO) is used to 



index of the label 
enter the Adcon Assignment subroutine. 
Upon return, the fields are rearranged 
and the Three-Word Move routine is 
entered. (Adcon Assignment and Three- 
Word Move are both Phase 3 internal 
subroutines and are described below.) 

Assigned GO TO (ID = X'7*) . The mem- 
ber of label elements (NOEL) is used 
to find the line-number word (LINO), 
which is moved to the third word of 
the entry. The OPD field is used to 
enter EXSN. The AVAR field is moved 
up two bytes, and the Three- Word Move 
routine is entered. 

Ccmputed GO TO (ID = X'8') . The OPD 
field is used to enter EXSN. The 
fields are rearranged, with the LLNOs 
being packed into two bytes. The new 
length is computed, and the Variable 
Move routine entered. 

ASSIGN (ID = X'9') . The OPD is used 
as a parameter for entry to the EXSN 



routine. On return, the Three- Word 
Move routine is entered. 

9. Arithmetic IF (ID = X'A») . EXSN is 
entered with the test value (TVAL) . 
Upon return the Common Relink subrou- 
tine is entered. Upon return, the 
Adcon Assignment subroutine is entered 
for the three branch points. The 
fields are then rearranged and the 
length set at 20 bytes. The variable 
move is then entered. 

10. Logical IF (ID = X'B* ). EXSN is 

entered with the test value. Upon 
return, the Common Relink subroutine 
is entered- The last two words are 
moved up one word. The Adcon Assign- 
ment subroutine is entered. Then the 
Four-Word Move routine is entered. 



11. CALL (ID = X»C«) 



The fields are 



The RIND field is 

If it is nonzero, the RVAR 
parameter to enter 
Upon return, or if 



rearranged, with the LLNOs being 
packed into two bytes. The new length 
is computed, and the Variable Move 
routine entered. 

12- Argument Definition Point (ID = X*D' ). 
The VAR field is converted to a symbol 
table location, and the Variable 
Relink subroutine is entered. Upon 
return, the Two- Word Move routine is 
entered. 

13. RETURN (ID = X'E' ) 
checked. 

field is used as a 
the CEKKE routine. 
RIND was zero, the RVAR field is moved 
forward two bytes, and the Three-Word 
Move routine entered. 

1^. Begin Loop 1 (ID = X'F' ). CEKKV is 
entered. Upon return, the length is 
set at 28 bytes and the Variable Move 
routine entered. 

15. Begin Loop 2 (ID = X*10' ) . CEKKW is 
entered. Upon return, the Four- Word 
Move routine is entered. The Four- 
Word Move routine adds the I VAR and 
EXITLB pointers to make the BL2 a 
five- word entry. 

16. Begin Loop 3 (ID = X'll' ). The RMVAL 
word is obtained from the PSECT and 
put into the PRF entry. A hexadecimal 
8 000 is put into RMVAL. The subrou- 
tine to relink common is then entered. 
On return, the CDP and GLAB fields are 
rearranged to the PF format. If the 
level is not zero, the Adcon Assign- 
ment subroutine is entered. The flags 
are then checked. If the 'global* 
flag is on, indicating an inner loop 
with no external calls, and the loop 
is safe, the symbol table pointer for 
the current floating point candidate 
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17, 



19, 



20. 



21, 



22. 

23. 
24« 

25. 



is put in the PF, The candiddte 
pointer is then" replaced with X*8000' 
The Three-Word Move routine is 
entered. 



End Loop CID X'12' ) . CSKKC is 
entered. The symbol table pointer for 
the current floating point candidate 
is replaced with X'8000'. Upon 
return, the One-Word Move routine is 
entered. C0ne-W6i:d Move is a Phase 3 
internal subroutine and is described 
below. ) 



CONTINUE CID = X'13'). 



No processing 



is necessary, so the Two-Word Move 
routine is entered directly. 

READ (ID = X'l^') and W-ITE CID = 

X'17' ) . The flag field is checked to 
see if the LABF field is an EF point- 
er. If it is, the EXSN routine is 
entered. Upon return or. if it was not 
an EF pointer, the UNIT field is used 
to enter EXSN. Upon return, the ID is 
checked. If it is a WRITE entry, the 
Three-Word Move routine is entered. 
For a READ, the ERR and EOF fields are 
packed into one word and the Four- Word 
Move routine entered. 

READ CID = X*16'), PRINT CID = X*19*), 
and PUNCH CID = X'lA* ). The flag 

field is checked. If it indicates 
that the LABF is an EF pointer, the 

EXSN routine is entered. Upon return 
or if LABF is a symbol table pointer, 
the Three- Word Move routine is 
entered. 

R EAD with NAMELIST CID = X'15' ) and 
WRITE with NAMELIST (ID = X'18' > . The 

UNIT field is used as a parameter to 
enter the EXSN routine. If the entry 

is a WRITE with NAMELIST, the Three- 
Word Move routine is entered. For the 
READ with NAMELIST entry the fields 
are rearranged, with ERR and EOF being 
packed into two bytes. Then the Four- 
Word Move routine is entered. 

Output List Element CID = X* IB' ) . 
EXSN is entered with OPD. Upon 
return, the Two-Word Move routine is 

entered. 



End List CID = X*1C« ). 



The One-Word 



Move routine is entered directly. 

File Control CID = X'lDM . The UNIT 
field is used as the parameter on an 
entry to EXSN. 

STOP CID = X"1E') and PAUSE ' ID = 



x'lm , 



The Three-Word Move routine 



26. End Program (ID = X'2Q' ). The One- 
Word Move routine is entered directly, 



27. Input List Element CID = X'21') 



29. 



30. 



31, 



32. 



EXSN 



is entered. Upon return, the symbol 
table location generated by CEKKE is 

used to enter the Variable Relink sub- 
routine. Upon return, the Common 

Relink subroutine is entered. When 

finished, tne Three- Word Move routine 
is entered. 

Adcon Assignment Subroutine . The sym- 
bol table pointer, asstimed to be in 
register P2, is converted to an 
address. The storage class of the 
entry is checked. If it is egual to 
255, the routine returns to the call- 
er. If not equal to 255, it is set to 
255. Register P2 is set to zero, and 
CEKLB is entered to file the constant - 
The pointer to the symbol table entry 
for the adcon is moved from the PSECT 
CTEPNTR) to the symbol table entry 
being processed. The parameters are 
set, and CEKKO is entered to tally the 
popularity of the adcon for global 
register assignment. Return is to the 
calling routine. 

Label Relink Subroutine . The pointer 
of the current PRF entry CFPT) is com- 
pared to the forward label link 
CLFDP). If they are not equal, the 
routine returns. If they are equal, 
the label field of the PRF CLINK) is 
converted to the PF chain, and the 
current LLNK saved as LFDP. 

Common Relink Subroutine . The pointer 
of the PRF entry is compared to the 
forward common link CCFDP). If they 
are equal, the PRF field is chained 
and the PRF pointer is saved. The 
routine then returns to the caller. 
If they are not equal, the PRF pointer 
is compared to the forward formal 
argument link CAFDP) . If these are 
not equal, the routine returns- If 
these are equal, the PRF field is 
linked, and the PRF link is saved. 



Variable Relink Subroutine. 



The PRF 



is entered directly. 



pointer is compared to the forward 
definition field in the indicated sym- 
bol table entry. If they are not 
equal, the routine exits. If they are 
equal, the forward and backward 
definition fields of the symbol table 
are relinked, and the forward link 
saved. 

One- Word, Two- Word, Three-Word, and 
Four-Word Move Routines . The PF loca- 
tion is moved to register P3 and 
increased by the indicated number of 
bytes C4, 8, 12, or 16). Then the 
Special Move subroutine is entered. 
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Upon return, the proper number of 
words is transferred from the PRF 
table to the PF table. The PF loca- 
tion is then updated by the proper 
number of bytes. The Exit Routine is 
then entered. 

33. Variable Move Routine . The indicated 
length Ci-e., number of bytes to be 
moved) is put on the next full-word 
boundary. The PF location is put into 
register P3 and the length added to 
it. The Special Move subroutine is 
then entered. Upon return PRF entry 
is moved in blocks of 256 bytes or 
fewer. The PF location is then 
increased by the length, and the Exit 
Routine entered. 

3^. Special Move Subroutine . The extent 
of the new PF entry (register P3) is 
compared to the PL limit CLIMSAV) for 
PF table overflow. If the table limit 
is exceeded, the error exit is taken. 
If not, the PF link field (ILINK) is 
updated, and return is made to the 
calling routine. 

35. EXSN - Expression Scan Subroutine . 
The ERF location is obtained from the 
indicated location, and CEKKE is 
entered. Upon return, the EF location 
is stored in the indicated field. The 
PRF location is restored, and return 
is to the entering routine. 

36. Exit Routine . The forward and back- 
ward links for the PRF and PF are 
updated. The current PRF location is 
calculated. The routine then exits to 
CEKKR by a restricted linkage (RESUME 
macro instruction) . 



CEKKC — End Loop PRF Entry Routine 

This routine processes the end loop 
entries in the PRF table. It sets up the 
loop tables for the loop, terminates com- 
monality of expressions as required, marks 
loop variables appropriately, and deter- 
mines their compute points if necessary. 
See Chart CX. 



This routine uses the working storage 
area of the PSECT. An error condition 
exists if this area is overflowed. The 
Phase 3 error exit (CEKKRE) is taken. 



OPERATION: 



The level (LEV - see •'Phase 3 



Loop Tables") is increased by 1, and a new 
PLP entry is generated and linked into the 
CNT Table. If the ciirrent loop is safe, 
all entries in the CRT (found by CEKKA) 
below the BL3 of the loop are deleted. If 
the loop is unsafe, level zero is checked. 
If level zero is safe, all CRT entries to 
BL3 of level zero are deleted. 

The "active induction variable" flag is 
turned on in the symbol table entry of the 
loop induction variable. The current level 
is stored as ULEV, and the forward compute 
point is set at BL2 of the loop. For the 
three loop parameters, CEKKG is entered to 
set the ULEV and FCP. Upon return, these 
entries are checked to ensure that the ULEV 
is at least the current loop and FCP is at 
BLl of the loop. Also, if any of the loop 
parameters is an induction variable for a 
previous loop, that loop is set for 
materialization. 

CEKKV — Begin Loop 1 PRF Processor 

This routine processes the begin loop 1 
entries in the PRF. The global register 
candidates are computed and moved into the 
PRF. Since this is the end of the process- 
ing for a loop, the level (LEV - see "Phase 
3 Loop Tables") is reduced by 1. See Chart 
CY. 

ENTRIES ; The entry point is CEKKVA. 
Register P5 contains the location of the 
current PRF entry, register Nl covers the 
intercom area, and register LI covers the 
work area. 

EXITS : Registers P6 , Nl, N2, and LI are 
the same as when entered. Register P5 
points to the BLl work area in the PSECT 
(BLl WORK) . 

This routine uses the working storage 
area of the PSECT. If this area is over- 
flowed, an error condition exists. The 
Phase 3 error exit (CEKKRE) is taken. 



ENTRIES : The entry point is CEKKCA. 
Register P5 contains the location of the 
current PRF entry, register Nl covers the 
intercom area, register N2 contains the 
location of the first available word in the 
working storage area, and register LI 
covers the work area. 

EXITS : Registers N3 through L2 are 
restored. Registers P5, P6, and Nl return 
unchanged. Register N2 reflects any use of 
working storage by pointing to the new 
first- available word. 



OPERATION ; Upon entry, the 2-word PRF BLl 
item is moved from the PRF to the BLl work 
area in the PSECT, and register P5 is 
loaded with that location. (This is done 
because the BLl entry to be created for the 
PF will be 28 bytes long. If the PRF is 
near the end of the allotted area, working 
in the PRF could cause errors by accessing 
past the end on the legitimate PRF area.) 
The line number is moved from the second 
word to the seventh. The loop level (LEV) 
is used to find the PLP location through 
the CNT table. The PLP flags are moved to 
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the PRF entry. The global register candi- 
date counter (GPN) is saved and the field 
cleared in the PLP. If the original GPN is 
zero, there are no global register assign- 
ments, and the routine skips to the end. 

For the sort, a temporary table (the 
first entry of which is set to zero) is set 
up in working storage with the following 
format for each entry: 







15 16 



31 



GIRL Pointer 



Popularity Count j 



THE GPLINK chain is followed from the PLP. 
The GIRL entries are then picked up one at 
a time to be stored in the table at the 
point where the popularity count of the 
next item in the table is less than the 
popularity count of the current GIRL entry. 
The table is pushed down at that point, and 
the new entry is inserted. The entry for 
the first or lowest negative popularity is 
stored immediately preceding the end of the 
table. When the end-of -chain is encoun- 
tered, the sort is completed. The GPLINK 
chain is now relinked so that the entries 
are encountered in order of decreasing 
popularity. 

Now each candidate is checked to see if 
global assignment can be accomplished. In 
order to be globally assigned, each inner 
loop must have the same candidate already 
globally assigned, or have fewer than the 
maximum number of registers assigned C8) . 
Starting with the most popular candidate, 
each inner loop is checked to see if there 
can be global assignment. If there cannot 
be, the candidate is deleted from the 
GPLINK chain. If there can, the GPN of the 
current loop is increased by 1. Also, each 
loop in which it is not already globally 
assigned has its GPN increased by 1. 

When either the candidate list is 
exhausted or the GPN of the current loop 
reaches the maximum, the search is com- 
pleted- An X«8000' is stored in the GPLINK 

of the last entry as the end-of-chain. The 
GLBL fields in the BLl entry are preset to 
X'8000". Then the GPLINK chain is followed 
to the end storing the GLBL field into the 
BLl entry. 

For each of the parallel inner loops, 
the GPLINK chain is followed. Each entry 
is compared to each GPLINK entry in the 
current loop- If an entry is found in an 
inner loop which is not in the current 
chain, it is linked into the current chain, 
and the GPN is increased by 1. This allows 
a GLBL to go from level "n" to level "n-2" 
with no occurrences in level "n-1". 

Since this is the end of the loop pro- 
cessing, the CNT table entry is set to 
X'8000» for both the TLINK and PLINK 
fields. The pointer to the removed expres- 
sion generated by CEKKB is moved from RMVAL 



in the PSECT to the BLl entry and X*8000' 
is stored in RMVAL. The loop level (LEV) 
is reduced by 1. The exit is then taken. 



CEKKW — Begin Loop 2 PRF Processor 

This routine processes the begin loop 2 
entries in the PRF. The EF entries for the 
loop parameters generated for materialized 
loops. If a test value exists, the test 
expression is generated by entering CEKLI. 
See Chart CZ. 

ENTRIES ; The entry point is CEKKWA. 
Register P5 contains the location of the 
current PRF entry, register Nl covers the 
intercom area, and register LI covers the 
work area. 

EXITS ; Register P5, P6, Nl, and N2 are the 
same as when entered. Registers N3 through 
L2 are saved and restored. 

Two errors are detected: 

1. The PF table overflowed. 



2. 



An illegal type code found in the sym- 
bol table. 



For all cases the Phase 3 error exit 
CCEKKRE) is taken. 

OPERATION ; The registers are saved by the 
STORE macro instruction. The link to the 
Polish chain (RMVAL) is moved from the 
PSECT to the PRF, and the value X'8000» is 
stored in RMVAL. The symbol table pointer 
of the induction variable CIVAR) is con- 
verted to a symbol table location. The 
pointer to the current PRF entry is com- 
pared to the forward definition point (FDP) 
of the symbol table. If they are equal, 
the FDP and BDP fields are relinked. 

The PLP flags are checked to determine 
which path the processing then follows: 

1. If the materialize flag is on, the 
symbol table pointer for IVAR is con- 
verted to a location. The PRF pointer 
is stored in the symbol table entry as 
the forward compute point. The unde- 
fined level CUNLEV) field is set to 
55, and DUNL Ca Phase 3 internal sub- 
routine) is entered. 

The expression file and DUNL subrou- 
tines are entered for the initial 
value CBEG), the final value (END), 
and the increment value (INC) . The 
link to each expression is stored in 
the proper place in the PRF. 

2. If the GLOBAL flag is on, but the BXLE 
on recursive flag is off, the EXITLB 
field is checked. If EXITLB is not 
equal to X^SOOO*, the materialize flag 
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is set; in either case, processing 
continues as in 1. 



3. If the BXLE on recursive flag is on, 
the constant step on the recursive is 
deleted as a global assignment candi- 
date. This is accomplished by calling 
CEKKO with a zero weight, then return- 
ing to CEKKO with a weight equal to 
C~TOTPOP>- If EXITLB is not X'8000«, 
a PF entry is generated for the induc- 
tion variable and the initial value 
via FEFP. The adcon for the exit 
label then has its popularity reduced 
by 5. 



CEKLI is then called to generate the 
test expression for the recursive. 

4. If none of the above conditions pre- 
vail, CEKLI is called to generate a 
test expression. 

The routine then exits. 



File EF and Point (FEFP) Subroutine 

This subroutine Cinternal to CEKKW) is 
used to file an adcon in the symbol table 
for the loop variables. The routine is 
entered with a symbol table pointer in 
register PI, which is converted to a loca- 
tion in register P4 . The location CSLOC) 
is divided by ti096 (to put it on a page 
boundary) - The remainder is stored as the 
displacement of the EF entry. The result 
plus the storage class CSTCL) are stored 
for the executive subroutine. 

Then the subroutine CEKTFI is entered to 
file the adcon. The cell TEPNTR contains 
the pointer to the symbol table. This is 
stored in the EF entry. The type and ID 
are also stored in the EF entry. The 
pointer to the EF is put into register P2. 
Register P6 (the PF location) is updated by 
two words. Return is then made to the 
calling routine. 



Delete the Undefined Level CDUNL) 
Subroutine 



This internal subroutine r 
undefined level (ULEV) . It i 
the symbol table location in 
The variable class is found, 
checked against the loop leve 
equal to or greater than the 
ULEV, is set to 55. If ULEV 
the forward compute point is 
against FLINK. If FCP is les 
equal to FLINK, the ULEV is s 
the routine exits. If FCP is 
FLINK, the routine exits. 



esets the 
s entered with 
register P^l. 
and its ULEV 
1. If ULEV is 
loop level, 
is smaller, 
checked 
s than or 
et to 55, and 
greater than 



CEKKE — Expression Scan Routine 

This is the main control routine for a 
series of subroutines which scan an entry 
in the expression file (ERF) , put it into 
canonical form, generate or locate triad 
table entries for all expressions and sub- 
expressions, update symbol table entries as 
necessary, determine commonality and remov- 
ability, rearrange and expand subscript 
expressions, generate adcon entries as 
needed, and rewrite the ERF as part of the 
program file (PF). See Chart DA. 

ENTRIES ; The entry point is CEKKEA. 
Register P2 points to the last ERF entry of 
the expression to be processed. Register 
P5 contains the location of the current PRE 
entry. Register P6 contains the location 
in the PF. 

EXITS : Register P2 points to the last ERF 
entry made in the PF. Register Nl is 
returned unchanged. Register P6 points to 
the new location in the PF. Register N2 
points to the new first available word of 
working storage. 

OPERATION ; Upon entry the ERF pointer, 
passed in Register P2, is converted into an 
ERF location. If the pointer is an 
X'8000', the exit is taken. It is assumed 
that the location is the "right-end" or 
major operator of an expression, or a prim- 
itive (a constant or variable) . A counter 
is set to 1, and the expression is scanned 
backward (from high core to low) to find 
the "left-end" Cor beginning). The ID of 
each entry in the ERF is examined. If it 
is an operator, the counter is increased by 
1. If it is a primitive (anything other 
than an operator) , the counter is reduced 
by 1, the ERF location is reduced by eight 
bytes, and the next entry is checked. Iflien 
the counter reaches zero, the beginning of 
the expression has been found, and the ERF 
location is saved in LOWERF. When a sub- 
script expression is being scanned, special 
conditions exist. Since CEKKM must insert 
two entries into the ERF, two extra plus 
operators have been inserted by Phase 1 
immediately preceding the colon operator. 
Therefore, when a colon is encountered dur- 
ing a scan, the ERF location is reduced by 
16 bytes in order to skip the pluses, which 
are not part of the expression. 

Once the left-end has been determined, 
the control words and flags are set to ini- 
tial conditions. Register P5 is loaded 
with the -1 entry of the OPTl , so that 
CEKKF will start at the first entry point. 
Register P2 contains the ERF location of 
the left-most or first entry of the 
expression. 

The general processing scheme is to 
check the ID of the ERF item pointed to by 
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register P2 • If the ERF ID indicates a 
primitive, CEKKF is invoked. CEKKF forms 
an entry in the OPTl Table for the primi- 
tive. Upon return the current ERF location 
is compared to the end or right- end loca- 
tion. If they are not the same, the ERF 
location CP2) is increased by eight bytes 
to point to the next item of the expres- 
sion, and its ID is checked. 

If the ERF ID indicates an operator 
entry, the subscript switch (SWCHSB) is 
checked. If it is set to 1, the subscript 
expression is on the first pass. The 
o-perator is checked for a plus. If it is a 
plus, the first pass is completed and CEKKM 
is invoked. Upon return from CEKKM, the 
conditions have been reset for another com- 
plete pass over the subscript expression, 
so the process of checking each ERF ID is 
restarted. The switch SWCHSB is set to 
zero, so that the second pass appears as 
normal processing. 

If SWCHSB is zero or, if the operator is 
not a plus, CEKKH is entered to form and 
file a triad generated from the operator 
and the last two OPTl entries. Upon return 
from CEKKH, CEKKL is entered under one of 
two conditions: 

1. The triad is removable from the cur- 
rent loop, and the triad flag indi- 
cates that it has already been 
removed, except for expressions 
reiroved to BL3 (i.e., FRCFLAG is on). 

2. SWCHSB is set to 1, indicating the 
first pass over the subscript 

expression. 

CEKKL forms a new OPTl entry for the 
previously created triad, so that it will 
be an operand of the next operator. Upon 
return from CEKKL, the insert flag CINSW) 
is checked. If this flag is nonzero, there 
was a "Float" function inserted by CEKKN. 
In this case, CEKKL has restored condi- 
tions, so CEKKH is now entered to form 
another triad, and processing is continued 
from there. If INSW is zero, the routine 
loops back to check for the end of the 
expression. 

After the return from CEKKH, if neither 
of the two above conditions exists, CEKKI , 
is entered, with register P4 pointing to 
the first Cor lower) of the last two OPTl 
entries. CEKKI operates on the operands of 
each triad. For primitive operands adcons 
are counted for global register assignment 
where appropriate- For triad operands the 
removability and commonality are determined 
and the necessary action taken (naming, 
creating residues, etc.). Upon return from 
CEKKI, the flag SWCHFL is checked. If it 
is nonzero, a "Float" insert was made by 
CEKKN, in which case CEKKL is entered. 



Upon return from CEKKL, CEKKH is reentered 
for a new triad as before. 

If SWCHFL is zero, register 1-4 is set to 
point to the last OPTl entry (the second of 
the two operands), 'and CEKKI, is reentered. 
Upon return from CEKKI, CEKKL is entered. 
Upon return from CEKKL, the INSW is tested 
with the same branches as described 
previously. 

When the right-end of the expression is 
reached, register P3 is set to point to a 
dummy triad entry (which represents the 
"equals" operator) . CEKKI is then entered 
to process the last entry in the OPTl 
table. Upon return from CEKKI, CEKLF is 
entered to copy the ERF string into the PF, 
inserting any float functions as necessary - 
Upon return from CEKLF, the JOINTE chain is 
followed. This chain points to triad 
entries which need the location in the PF 
to be saved in the name field of the triad. 
The chain starts with JOINTE and is con- 
tinued in the name field of each triad in 
the chain. When an end-of -chain (X'8000') 
is found, the exit is taken. 



CEKLF 



Copy and Edit an Expression 



The function of CEKLF is to copy an ex- 
pression from ERF into the PF. During this 
process null entries will be deleted, spe- 
cial expression file entries will be 
inserted, and any expressions which have 
been named as common will be changed to so 
indicate, if necessary. See Chart DB. 

ENTRIES ; This routine is entered at CEKLFA 
with the following input parameters: 

P2 = Location of the right-end of the 

expression in the ERF 
P3 = Location of the left-end of the 

expression in the ERF 
P6 = Location of next available entry 

in the PF 

EXITS ; Register P^l contains the location 
of the last entry made in rhe £F portion of 
the PF. Register P6 contains the updated 
next available work in the PF. If the PF 
is filled during the copying, the Phase 3 
error exit is taken. 

OPERATION : Initially, the SETFLAG is 
checked. If it is turned on, indicating 
that the left end of an assignment state- 
ment is being copied, the 'global load' 
flag is checked in the PLP. If it is on, 
the GFLSW is set to 3, indicating that this 
loop may have a removed floating-point can- 
didate. The SERF cell contains the loca- 
tion of the first insert entry. If SERF is 
zero, there are no insert entries. In this 
case, the insert location is set to 
X'FFFFFFFF* to prevent any insertions. If 
there are insert entries, the location of 



116 



the first entry is loadea from SERi^*. The 
insert location is ^ loaded for comparison 
with the ERF location. if the ERF location 
is equal to the insert location, the SERF 
entry is moved into the I'F. The ID field 
is then checked for an "operator." If it 
is an operator, tne triad location is 
loaded and the name flag checked. If it is 
on, the name is moved from the triad to the 
EF entry and the ID is ctianged to "CSX." 
In any case, the ?F location is updated to 
the next location^ ^he location of the 
next SERF entry is loaded, and the routine 
returns to load and check its insert 
locations . 

When the insert location is not equal to 
the ERF location, the ID of the ERF entry 
is checked for a null ID. If it is null, 
the entry is not put into the i*F, but the 
routine skips to update the ERF location. 

If the ID is not null^ it is checked for 
an operator. If it is an operator, the 
following checks are made. 

1. If it is either a complex operator or 
an intrinsic- function- argument opera- 
tor, the GFLSW is turned off. 

2. If it is a colon operator, and the 
COLONF flag is on, it is checked to 
see if this is a removed floating load 
candidate. The COLONF flag is set 
when an array operand is processed and 
meets the 'removed floating point 
quantity' requirements. The SETFLAG 
is checked to determine whether the 
expression is the left or right end of 
the assignment statement. 

If this is the left end of the assign- 
ment statement, tne removal level of 
the subscript operand is checked. If 
it is removable from the current loop, 
the GFLSW is set to 2, indicating that 
a subscripted variable appeared to the 
left of the equal sign. The 
subscript- triad pointer is saved for 
comparison when the right end of the 
equal sign is processed. 

If the SETFLAG is off, then the right 
end of the equal sign is being pro- 
cessed. The GFLSW is checked. If it 
equals 1, it is set to zero. This 
means the statemnet AC 3) = A (I) will 
not be considered for global assign- 
ment in floating-point register 6. 

The subscript triad is then compared 
to the one saved from the left end. 
If they are not equal, the GFLSW is 
set to zero. This protects the state- 
ment AC J) = ACI) from being consi- 
dered. The adcon-displacements of the 
two array items are then checked. If 
they are equal, the colon operator is 



flagged for Phase 4. If they are not 
equal, the colon operator is not 
flagged and the GFLSW is left 
unchanged. This allows the statement 
ACI) = aCI-i-3) to be recognized as an 
allowed condition in that the elements 
being referenced will never be the 
same- 

In any case, the triad name is moved 
to the ERF entry, and the ERF is 
copied to the PF. 

If the ERF entry is an operand, it is 
checked for a variable. If it is a vari- 
able and the SETFLAG is on, it is examined 
for being a removed floating-point-quantity 
candidate. The requirements are that it 
must be REAL* 4 or REAL* 8, and must not have 
the INTERFERING flag set in its symbol 
table entry. 

The ERF flags are then checked to see if 
the quantity is a subscripted variable. If 
not, GFI^dW is set to 1, indicating a simple 
variable to the left of the equal sign. If 
it is a subscripted varialbe, COLONF is set 
to one, indicating that the next colon 
operator processed corresponds to this 
array operand. 

If the SETFLAG is off, GFLSW is checked. 
If it is set to 2, and the symbol table 
pointer matches the saved one, the ERF flag 
is checked to see if it is a subscripted 
variable. If not, GFLSW is set to zero. 
This disallows ACI) = AC3) . 

If GFLSW is set to 1, the symbol table 
pointer matches the saved one, and the ERF 
flag indicates a subscripted variable, 
GFLSW is set to zero. If it is not sub- 
scripted, and the adcon displacement equals 
the saved one, the ERF operand item is 
flagged for Phase t|. 

In all cases, the ERF is copied to the 
PF. The next available word in the PF 
C register P6> is updated. The ERF location 
is increased by eight bytes and compared to 
the right- end location. If they are not 
equal, the routine loops back to check for 
an insertion. If they are equal, the ex- 
pression has been copied. The new PF loca- 
tion is converted to a pointer and stored 
in TEPFT. If the SETFLAG is off and GFLSW 
is set to 1 or 2, CEKKO is called to reduce 
the popularity of the subscript or adcon by 
the number of times the item was flagged. 
CEKKO is called a second time to increase 
the popularity of the item on the next 
outer loop by a weight of 10. The pointer 
to the EF for the left end of the expres- 
sion is then stored in GBLREAL for CEKKU. 

If the SETFLAG is on, the pointer to the 
expression in the PF is saved, and exit is 
taken. 
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CEKKF 



Pushdown Primitive Operand Routine 



The functions of the CEKKF are to update 
the symix>l table entry of an operand (if a 
variable) , to change the EHF entry to 

reference an address constant and displace- 
ment, to create a dummy expression Ca 
operator) if required, and to form an entry 
in the operand push-do%fn list (OPT) from 

the information created in these processes. 
See Chart DC. 



ENTRIES : This routine is entered at CEKKFA 
by restricted linkage (INVOKE macro 
instruction). Register P2 contains the 
location of the current entry in the ERF. 
Register P5 contains the location of the 
current OPTl entry. 

EXITS : This routine returns to CEKKE by 
the restricted linkage (RESUME macro 
instruction). Registers P2, P5, and P6 are 

returned unchanged. 

OPERATION : The OPTl location is stepped to 
the next entry and the area is cleared. 
The current ERF pointer (register P2) is 
stored in the Polish (OPOLSH) field. The 
forward compute point (OPTFCP) is set to 
X'TFFF*, which forces it to the beginning 
of the object program. If the ID of the 
ERF item indicates a loop variable, the 
loop variable flag (OPLVF) is turned on. 
The count field (OPCNT) is set to 1 (since 
this routine is only entered for primi- 
tives) « The symbol table pointer for the 
primitive is moved from the ERF to the OPTl 
(OPTRDl). The left-end switch (DSWT) is 
tested. If it is zero, the symbol table 
location is stored in DEFSYM for CEKKU and 
the switch set to nonzero- If the flag 
(SET FLAG) is nonzero, the operand being 
processed is an assignment value- If its 
symbol table pointer is equal to the cur- 
rent floating point candidate for Phase 4, 
the candidate is deleted. The sign flag 
(OPSIGN) in the OPTl entry is set to agree 
with the sign in the ERF. 

Next, CEKKG is entered to determine the 
forward compute point (FCP) and undefined 
level (ULEV) of the primitive. However, 
CEKKG is not entered for loop parameters, 
functions, and constants. Loop parameters 
receive special processing (see below) • 
Functions go directly to the exit, leaving 
the OPRLEV set to zero, and the OFTFCP set 
to X'7FFF'. The fields are the same for 
constants, but they do get the remainder of 
the processing in order that an adcon may 
be filed for them. 



For ERF entries that are flagged 'split 
subscript*, the FCP and ULEV are trans- 
ferred from the symbol table entry for the 

induction variable. The symbol table 



pointer was temporarily put in tne EF adcon 
half word by CEKKM for this purpose. 

Upon return from CEKKG Cor the loop pa- 
rameter processing) , the FCP and ULEV are 
moved from the symbol table to OPTFCP and 
OPRLEV, respectively, in the OPTl entry. A 
"storage location" is formed by adding the 
SLOC field from the symbol table to the 
offset word in the ERF. This, along with 
the storage class (STCL) from the symbol 
table, is used as a parameter to enter 
CEKLB, which files a covering adcon in the 
symbol table. 

When control is returned from CEKLB, the 
subscripted variable flag is checked in the 
ERF. If it is on, a special processing 
section is entered (see below) . If the 
flag is not on, the pointer to the adcon 
entry in the symbol table is stored in the 
ERF (in EFADCON) . Special processing is 
then given to variables with an offset of 
nonzero and to loop variables, to insert an 
i operator (see below). For all others, 
the type is checked. If it is real, and 
neither a subscripted nor a class array 
item, its symbol table pointer is saved as 
the current floating point candidate in 
GBLREAL. The exit is then taken. 



"AT" Operator Insertion 

The a operator is used to distinguish 
between different bytes of an array for 
constant- subscript items. (In other words, 
it is to distinguish between A (3) and 
A (5).) It also makes occurrences of the 
loop variable inside the loop different 
from references outside the loop. This is 
accomplished by forming a dummy triad, with 
the operator an a. The displacement is 
stored as the first operand (TROPl), so 
that only references to the same byte of an 
array will be common. The prototype triad 
is formed, and CEKKP is entered to file it 
in the TRIAD Table. Upon return, the triad 
pointer is stored in the OPTl table and the 
indicator (FI) set for a triad. The a flag 
CATF) is set in the OPTl to mark this as a 
dummy triad. The exit is then taken. 

Subscripted Variable Processing 

The remaining entries in the ERF, up to 
the first + preceding the : , are inside the 
subscript. These entries require two 
passes for complete processing. For the 
first pass special paths are taken in 
CEKKE, CEKKH, CEKKF, CEKKI , and CEKKL. The 
switch (SWCHSB) is set to 1, to mark the 
first path. In addition, the symbol table 
pointer to the adcon covering the array, 
the SLOC of the adcon, and the symbol table 
pointer of the array variable are saved for 
CEKKM. A branch back to check for a opera- 
tor is made. 
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Loop Parameter Processing 

If SWCHSB is set to 1 
inside a subscript. The 
in the ERF ID is cleared. 
loop variable look like a 
On the second pass the lo 
get the special loop para 
but not the special a pro 
loop will not be material 
The main section is enter 
return from CEKKG. 



the processing is 
loop variable flag 
Tais makes a 
loop parameter. 
op variable will 
meter processing, 
cessing, and the 
ized (see below) . 
ed just after the 



If SWCHSB is set to zero, processing is 
outside a subscript. If the loop variable 
flag is on in the ERF, tiie loop level is 
extracted from the ERF ID field, and used 
to set materialize flag in the PLP table of 
the proper loop 

For all loop parameters the ERF ID is 
changed to variable or constant, with the 
proper type code from the symbol table. 
The main section is reentered just after 
the return from CEKKG. (CEKKG shoula not 
be entered for loop paranieters, since the 
end- loop routine, CEKKC, has put in the 
proper FCP and ULEV, and CEKKG is not set 
to recognize the special case.) 

CEKKG — Variable Compute Point and Removal 
Level Routine 



from the current ULEV to the current loop 
level. If the FCP is greater (above in the 
FRF) than the BL3 entry of a loop, that 
level is made the undefined level. If no 
level is found for which the FCP is out- 
side, the current level plus 1 is made the 
undefined level. This means that any 
expression involving this variable cannot 
be removed from the current loop. 



In the case where the FCP is not smaller 
than the FPT, a new FCP and ULEV must be 
determined. First, a tentative forward 
compute point, TFCP (in the PRF) , and a 
tentative backward compute point, TBCP (in 
the PF) , are determined. Two types of 
variables are present: 

1. Normal Variables. The forward defini- 
tion point (FDP) and backward defini- 
tion point (BDP) from the symbol table 
entry are set as the tentative compute 

points. 

2. Variables in Common. For the TFCP, 
the lower of the FDP and the forward 
definition point of the common chain 
(TECPAN) is used. For the TBCP, the 
higher of the BDP and the backward 
definition point of the common chain 
CCBDP) is used. 



The purpose of this routine is to deter- 
mine the forward compute point and removal 
level for a variable. See Chart DD. 

ENTRIES : The entry point is CEKKGA. 
Register PI contains the symbol table 
pointer for the variable to be processed. 

EXITS ; Register P4 contains the symbol 
table location of the variable processed. 
Registers PI, P2, P**, and P5 are returned 
unchanged. 

OPERATION: If the symbol table entry for 
the variable has the "not computable" flag 
on, the variable is an adjustable dimen- 
sion; therefore, the varible cannot be 
redefined across level zero. If level zero 
is safe, the undefined level flag (ULEV) is 
set to zero? otherwise, ULEV is set to 1. 

If the "not computed flag" is not on, 
the FCP in the symbol table entry of the 
variable is compared with the current PRF 
pointer (FPT) • If the FCP is smaller than 
the FPT, the FCP is still valid. The ULEV 
field is obtained from the symbol table 
entry and compared with the current loop 
level (LEV) . If ULEV is larger than the 
current level, it is still valid and the 
routine returns to the invoking routine. 
If ULEV is not larger than the current 
looplevel, the new undefined level is 
determined by checking the FCP against the 
PRF pointer of the BL3 entry of each loop 



Once the TFCP and TBCP are fixed, the 
removal level is determined. This is the 
first safe loop between ULEV and the cur- 
rent loop for which TFCP is higher than the 
BL3 PRF entry for the loop, and for which 
TBCP is lower than the end loop PF entry. 
In other words, there is no definition 
point inside the loop. If the TBCP is 
inside the loop but TFCP is outside, the 
TFCP is reset to the BL3 point before the 
next higher loop is tested. 

When the removal level is determined, it 
is stored as ULEV in the symbol table, and 
TFCP is stored as the FCP. 



CEKKL — Operand List Expression Formation 
Routine 



CEKKL produces an entry in the OPTl table, 
representing an expression, formed from an 
operator and the last two operands in the 
operand list (which are thereby deleted) . 
See Chart DE. 



ENTRIES : This routine is entered at CEKKLA 
with the following input parameters: 

P3 ~ Address of expression in triad 

table 
P5 = Index into OPT table 
P2 = Current ERF pointer 
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EXITS : Register P2 points to the updated 
current ERF entry. Register P5 contains 
the updated OPTl entry location. Registers 
P3 and P6 are unchanged. 



EXITS ; Register P3 contains the triad 
location. Registers P2, P5, and P6 are 

unchanged. 



OPERATION: A new OPTl, created to repre- 
sent the previous triad, is formed from 
information in the triad entry and the last 
two OPTl entries. I replaces the lower of 
these two entries. 

The location of the triad is converted 
to a pointer and stored in the new OPTl 
entry. The FCP and RLiCV are moved from the 
triad to the OPTl. 

The OPFI is set for a triad entry. 
COPFI refers to the triad table entry Fl or 
F2 with which the phase is currently con- 
cerned.) The sign flag is moved from the 
SIGNOP cell in the PSECT (stored by CEKKH) . 
If the loop variable flag COPLVF) is on for 
either of the two OPTl entries, it is set 
for the new OPTl entry. 

The cell SWCHFL indicates whether CEKKN 
made an insert of a float function during 
the processing of the previous expression- 
If SWCHFL is zero, no insertion was made. 
If SWCHFL is nonzero, it contains the ERF 
location of the entry to which the float is 
to be applied. 

CEKKL tests SWCHFL. If it is zero, the 
ERF location in register P2 is converted to 
a pointer and stored in the OPTl entry 
OPOLSH. The count fields (OPCNT) from the 
two OPTl entries are added together, the 
total increased by 1, and the result stored 
in the new count field. This gives the 
number of EF entries in the expression to 
this point (used by CECKM and CEKLD) . The 
exit is then taken. 

If SWCHFL is nonzero, the contents are 
put into register P2 as the ERF location, 
and SWCHFL is cleared to zero. The byte 
INSW is set to nonzero, to indicate to 
CEKKN that a float function was inserted on 
the previous entry. The two OPCNT fields 
are added together, but not increased by 1 
before being stored in the new OPCNT. This 
is because the float operator is not in the 
ERF, but in the SERF. 

CEKKH — Triad File Manipulation Routine 

The purpose of CEKKH is to locate or 
insert in the triad table an entry formed 
from an operator entry in the expression 
file and two operands in the operand push- 
down table. See Chart DF. 

ENTRIES : The entry point is CEKKHA. 
Register P2 contains the location of the 
ERF entry of the operator of the expres- 
sion. Register P5 contains locations of 
the current OPTl entry. 



OPERATION ; Immediately upon entry, CEKKH 
calls CEKKN to put the operands into canon- 
ical form. Upon return from CEKKN, a pro- 
totype triad entry is generated in working 
storage from the last two entries in the 
OPTl table and the operator in the ERF. If 
the operator is a semicolon, a function is 
involved. The lower address entry in the 
OPTl is assumed to be the function. The 
symbol table entry for this item is checked 
for a library function. If it is not a 
library function, the expression is not 
removable. This nonremovability is forced 
by setting the RLEV in the Triad to 55. 
Also, the expression can be common only 
with a sim.ilar expression in the same 
statement. This commonality is forced by 
setting the forward compute point (FCP) to 
the current PRF location plus 1. Before 
the next PRF item is processed, the triad 
entry will be deleted by CEKKR. 

For all operators other than semicolons, 

• ?' , and for library functions, the removal 
level (RLEV) in the triad is set as the 
higher of the two OPTl entries of the 
operands. The triad prototype is now com- 
pleted, so CEKKP is entered to find a com- 
mon triad or to file the prototype as a new 
entry. 

If the operator is ■ ?" , and both of its 
operands are removable , the RLEV in the 
triad is set to LEV+1 so that the triad 
appears nonremovable. This is necessary 
since both operands of the ■ ?• are con- 
stants for the split- subscript expression, 
yet the expression for the base/index split 
is by nature nonremovable. 



After control 
the name flag of 
CEKKP is checked 
triad is already 
(set to 1) , the 
cessed for subsc 
therefore, the e 
not 1, the name 
pointer are put 



is returned from CEKKP, 
the triad indicated by 

If the flag is on, the 
correct. If SWCHSB is off 
expression is being pro- 
ripts for the first pass; 
xit is taken. If SWCHSB is 
in the triad and the triad 
into the EF entry. 



CEKKP — Search and Insert Triads 

CEKKP enters new expressions in triad 
table, locates old ones, and removes obso- 
lete ones. See Chart DG. 

ENTRIES ; The entry point is CEKKPA. 
Register P2 contains the ERF location of 
the operator of the expression. Since a 
prototype triad has been built in the work- 
ing storage area, register N2 will contain 
its location. 
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EXITS : Register P3_ contains the location 
of the triad. Register ^2 is unchanged. 
Register N2 is the same or is updated to 
point to available working storage. 

OPERATION ; Upon entry CEKKP locates at the 
point indicated by register M2 the proto- 
type triad, which was put together by 
CEKKH. 



The triad entries are 
through a hash table CTRI 
table index is formed by 
the OPl and OP2 fields of 
are either symbol table p 
triad pointers) and reduc 
modulo 1020 (X' 3FC' ) . Th 
table entry is the anchor 
triad entries. This chai 
until an end-of- chain or 
entry is found. 



linked together 
H) . The hash 
adding together 

the triad (these 
©inters or other 
ing the sum to 
e resulting hash 

for a chain of 
n is followed 
a matching triad 



checked. If the operator is a Real*4 or 
Real* 8, the types of each operand are 
checked. If one type is Integer* 2 or 
Integer*^, a Float function is to be 
inserted in the EF at that point. The cur- 
rent ERF location is stored in SWCHFL, and 
P2 set to point at the preset EF entry for 
the function in working storage. The 
necessary OPTl entries are inserted and the 
routine exits. On the next entry INSW 
indicates that the last entry had a float 
insert, thus preventing another from being 
inserted, and normal processing continues. 

The processing is an attempt to make as 
many triads common as possible. This is 
done by always putting the smaller OPD 
field as OPDl and by moving any minus signs 
up to the operators (since the operator 
sign does not affect commonality, but the 
operand sign does). 



As the chain is followed, the forward 
compute point CFCP) of each triad is first 
compared with the current PRF location 
(FPT). If the FPT is higher than the FCP, 
the compute point has been passed in the 
PRF and the triad is now obsolete. Thus, 
this triad should not oe considered as a 
candidate for commonality with the proto- 
type. The triad is relinked out of the 
chain, so it is permanently unavailable as 
a common expression. 

If the triad is still active (FPT not 
greater than FCP) , the key fields are com- 
pared to the prototype's fields for common 
expressions. For two triads to be common, 
the following fields must match exactly: 
OPDl, OPD2, FIl, FI2, SIGNl, SIGN2, OP, and 
RLEV. If a match is found, the location is 
put into register P3 and the exit taken. 

CEKKN — Canonical Form Routine 

CEKKN puts an expression into a canonic- 
al form so that expressions differing only 
in nonessential variations will be reco- 
gnized as common. See Chart DH. 

ENTRIES: The entry point is CEKKNA. 
Register P2 contains the location of the 
SRF entry for the operator of the expres- 
sion. Register P5 contains the location 
ofthe OPTl entry for the second Cor right) 
operand of the expression. 

EXITS : Registers P2, P5, and P6 are 
returned unchanged unless there was a float 
function inserted, in which case P2 points 
to the EF insert in the work area and P5 
points to the generated OPTl entry for the 
insert. 



CEKKI — Expression Removal and Commonality 
Determination Routine 

The function of CEKKI is to determine 
commonality or removability of an expres- 
sion, to make entries in the compute and 
remove table (CRT) , to mark last occur- 
rences, and to tally popularity counts. 
See Chart DI. 



ENTRIES: The entry point is CEKKIA. This 
routine uses the two common registers of 
Phase 3: Nl, covering intercom and the 
rest of the second page of the phase PSECT; 
and N2, covering the unused area start 
point of the phase PSECT. Input parameters 



P2 = ERF location 

P3 = Address of triad entry is 

dominant operator 
p£i = OPT entry address this operand 

EXITS ; This routine has one normal exit. 
Except for catastrophic returns to the 
Phase 3 abort point, there are no other 
exits and no output parameters. 

OPERATION ; This routine processes one 
operand of a triad on each entry. Upon 
entry, CEKKI loads the ERF location from 
the OPT entry. If the operand is a primi- 
tive or an a operator, the conditions are 
tested for counting the popularity of the 
covering adcon for global register 
assignment. 

The adcon is not counted for any one of 
the following conditions: 



OPERATION; 



If the operator is not plus. 



multiply, divide, greater than, less than, 
AND, OR, or equal, the routine exits. For 
plus, multiply, and divide, the type is 



1. 



The "adcon" field of the EF is 
X' 8000' . 



2. The I/O flag, set by CEKKU, is on. 
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3. The variable is an array variable, 

4. The processing is in the first pass of 
a subscript. 

5, The operand is part of a normal 
expression. 

6, The EF entry is a function. 

?• The triad entry is a removed 
expression. ''' *" 

8. The triad entry is a common 
expression- 

If the triad is removable to level zero 
and is occurring at level zero, the adcon 

is counted when the expression occurs for 
the first time. If it is not occurring for 

the first time, the count is set to -5 to 
reduce the previous count, since the expre- 
ssion will now be removed. CEKKO is used 
to tally the popularity. 

If the indicated operand is an operator 
(other than a or , ) , it is checked for com- 
monality or removability. An expression is 
considered removable if its removal level 
is not greater than the current loop level. 
If the removable expression has not expres- 
sion has not been named, CEKKK is entered 
to give it a name. If the last-use flag 
has not been set, it is now set. If the 
forward compute point for the expression is 
above the beg in- loop- 1 entry of the current 
loop, CEKLE is entered to file a compute- 
and-remove table entry at begin loop 1 to 
insure expression generation at the loop 
top. The expression is replaced in the EF 
by a residue in CEKLD. Finally, if the 
expression is integer and not part of a 
larger removable expression, it is tallied 
by CEKKO as a candidate for global register 
assignment. 

If the expression is not removable, it 
undergoes the following processing. If it 
is named, no further processing occurs. If 
this is the first occurrence, it is linked 
into the JOINTE chain. This chain causes 
the PF location to be stored in the last 
occurrence field of the triad entry by 
CEKKE. If this is not the first occur- 
rence, the next larger expression is 
checked for commonality. If the larger 
expression is common, the current expres- 
sion is not processed further except to 
insure that it is in the JOINTE chain. If 
the next larger expression is not common or 
if this is its first occurrence, the cur- 
rent expression is checked by CEKKJ for 
commonality. If the current expression is 
common, it is named by CEKKK and the last 
use bits are set. 

Expressions involving the induction 
variable are processed for removability in 



a special manner. If the removal level is 
higher than the current level, the expres- 
sion is not removable. If the removal 
level is lower than the current level, the 
expression is removable. If the removal 
level is equal to the current level, anoth- 
er test is used to determine removability. 
The forward compute point for the expres- 
sion is compared to the begin loop 1 PRF 
location of the current level. If the FCP 
is higher than or equal to BLl , the expres- 
sion is treated as removable. If it is 
less than BLl, it is treated as a special 
nonremovable . 

CEKKJ — Check Commonality 

CEKKJ determines whether any entries in 
the PRF between first and second occur- 
rences of an expression rule out their 
being common. See Chart DJ. 

ENTRIES ; The entry point is CEKKJA. 
Register P2 contains the ERF location of 
the operator of the expression. Register 
P3 contains the location of the triad entry 
for this expression. 

EXITS: There are two exit points from 
CEKKJ. The "common" exit CKJ900) returns 
with a return code of nonzero. The "not 

common* exit CKJ950) returns with a return 
code of zero. Registers P2, P3, P4, P5, 

and P6 are returned unchanged. 



OPERATION: 



This routine is entered if 



there have been two occurrences of the same 
expression, the current one is not remov- 
able, and the expression is unnamed. The 
name field of the triad entry contains the 
PF pointer to the previous occurrence 
(which was inserted by the JOINTS chain at 
the end of the processing by CEKKE) . If 
the name field contains an X*8000', the 
previous occurrence is in the statement 
currently being processed. In this case 
the expressions must be common, so the 
"common" exit is taken. 

If the name field is not X»8000', the 
pointer to the last label definition point 
in the PF (LBDP) is compared with the PF 
pointer to the last expression. If the 
label pointer is higher, then a label has 
intervened and the expressions cannot be 
common. The "not common" exit is taken. 

If the label pointer was not higher than 
the PF pointer, the expressions still may 
not be common if the end loop of an unsafe 
loop intervenes between the two occur- 
rences. The end loop location (found in 
the PLP Tables) of each loop in the current 
nest is checked down to level zero. If the 
end loop is between the two occurrences, 
the "unsafe" flag of the PLP is checked. 
If it is on, the "not common" exit is then 
taken. If the flag is not on, the next 
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lower level is checked until an end loop 
entry is found which is lower than the pre- 
vious occurrence (the level zero end loop 
location will always be lower) . Then the 
"common" exit is taken. 

CEKKK — Establish Common Expression 
Routine 

This routine's purpose is to assign a 
name to an expression, to put that name in 
the previous occurrence that is common, and 
to enter the name in the CRT at the forward 
compute point. See Chart DK. 

EMTRIES: The entry point is CEKKKA. 
Register P2 contains the ERF location of 
the operator of the expression. Register 
P3 contains the triad entry location. 

EXITS : Registers P2, P3, FH, P5, and P6 
are unchanged. 

OPERATION ; Upon entry, CEKKK loads the 
last assigned name from TEHCSX and adds 1 
to it to create a new name- The new name 
is checked for a value greater than 409 5. 
If it is greater, the error exit is taken. 
If the name has a value of 4095 or less, it 
is stored in TENCSX as the new last-used 
name. 

If the QFLAG of the triad is zero or if 
the name field of the triad is not X«8000% 
the name contains a PF pointer to the pre- 
vious use of the expression. The pointer 
is loaded in a register, and the expression 
name is stored in the name field. Then 
CEKLA is entered to mark the previous 
occurrence as 'CSX' and "last- use." If the 
QFLAG is on or if the name field is 
X'8000', CEKLA is not entered, because the 
last occurrence is in the current 
statement. 

Upon return from CEKLA or if it was 
skipped, the name flag is turned on in the 
triad. 

The forward compute point is loaded into 
a register from the triad to file a compute 
and removal table (CRT) entry at that 
point. CEKLE is entered to file the CRT 
entry. Upon return from CEKLE, the exit is 
taken. 

CEKLA — Label Common Expressions 

'^hen it is determined that an expression 
is a coranon expression, this routine 
locates in the PF the previous occurrence, 
labels it "CSX," and marks it as last 
usage. See Chart DL. 

ENTRIES: The entry point is CEKLAA. 
Register PI contains a PF pointer for the 
major operator of an expression containing 
a common subexpression. Register P3 con- 



tains the location of the subexpressions 
TRIAD entry. 



EXITS I 



Register PI, P2, P3, P4, P5, and P6 



are returned unchanged. There are no out- 
put pa r a met ers . 

OPERATION : The location of the expression 
in the EF containing the previous occur- 
rence is computed. A counter is started 
with a value of 1. The ID of each EF entry 
in the expression is checked, starting from 
the right end (major operator) and going to 
the left end. If the entry is a primitive, 
the counter is reduced by 1, the EF loca- 
tion is reduced by 8, and the next entry is 
checked. If the entry is a 'CSX' (common 
expression), the count is increased by 1, 
and the next EF entry checked. 

When an operator is encountered in the 
EF, the triad pointer saved in the EF 
(EFTRD) is compared with the pointer to the 
current triad. If they do not match, the 
count is increased by 1 and the next EF 
entry checked. 

If the triad pointers match, the name is 
moved from the triad to the EF. The opera- 
tion code in the ID field of the EF entry 
is changed to a CSX (the type is retained). 
The last use flag is set in the triad and 
in the EF. 

There can be more than one occurrence of 
the triad within an expression, if it is a 
subexpression of two larger expressions 
iirtiich are also common. Therefore, each 
expression must be scanned to the end- The 
end is reached when the counter is reduced 
to zero. Then the exit is taken. 



CEKLE — File CRT Entries 

CEKLE locates a previously filed entry, 
if present, or files a new entry in the 
compute and remove table. See Chart DM. 

ENTRIES : The entry point is CEKLEA. 
Register PI contains a PRF pointer, indi- 
cating where the compute and remove point 
is. Register P3 contains the location of 
the triad entry. 

EXITS : Registers PI, P2 , P3, P4, P5, and 
P6 are returned unchanged - 

OPERATION: The PRF pointer to the filing 
location is converted to a hash table 
index, by taking the PRF location module 
1020. The chain from that hash entry is 
followed until one of the following condi- 
tions exists: 

1. An end-of-chain is encountered, which 
causes the entry to be inserted as the 
last entry in the chain. 
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2. The same triad entry is found, which 
causes an exit, 

3. A PRF pointer is found that is less 
than or equal to the indicated point- 
er. This causes the entry to be 
inserted into the chain at this point. 
The PRF pointers should be in descend- 
ing order as the chain is followed out 
from the hash table. 

CEKLD — Expunge a Removable Subexpression 

This routine replaces a subexpression 
with a series of null entries and one resi- 
due entry, indicating the expression by 

name. See Chart DN. 

ENTRIES : The entry point is CEKLD A. 
Register P2 contains the ERF location of 
the operator of the expression. Register 
P3 contains the triad location. Register 
P4 contains the OPTl entry location for the 
expression. 

EXITS : Registers P2, P3, Pt|, P5, and P6 
are returned unchanged. 

OPERATION: The count field from the OPTl 
entry indicates the number of EF entries in 
the expression. This number is reduced by 
1, multiplied by 8 (for eight bytes per EF 
entry) , and subtracted from the "right-end" 
location to give the "left-end" location. 
These two locations are used as limits to 
check the SERF chain for inserts. When the 
insertion point into the ERF falls between 
the two limits, that SERF entry is deleted 
by relinking the SERF chain. When the end- 
of -chain is encountered, the ends of the 
SERF chain are restored. 

Each ERF entry in the expression is then 
checked. If the ID indicates a residue, 
the last use flag on the ERF entry is 
checked. If it is on, the triad location 

is loaded and the last use flag in the 

triad is cleared- 

The ID is then set to null Czero), which 
causes CEKLF to skip the entry when copying 

the ERF into the PF. 

When the right end is reached, the ID is 

set to a residue and the exit taken. 

CEKKM — - Subscript Expression Revision 
Routine 

This routine's purpose is to revise a 
subscript expression to include the address 
constant as a term and to be optimal as 

regards computation with loop variables and 

removable expressions. See Chart DO. 

ENTRIES : The entry point is CEKKMA. 
Register P2 contains the ERF locations of 
the first + operator encountered in the 



subscript expression. Register P5 contains 
the current OPTl entry location. 



EXITS : Register P2 contains the ERf^ loca- 
tion of the first operand of the sorted 
subscript expression. Register P5 contains 
the OPTl location for the first entry of 
the sorted subscript expression. 



OPERATION : This routine is entered when 
the preliminary scan has reached the first 
of a string of + signs prior to the : . It 
counts these to determine the range of the 
expression to be revised, and the number of 
operand entries in the OPT Table which are 
involved. Then it sorts these entries in 
OPT on removal level, loop variable indica- 
tor, and forward compute point. A new OPT 
entry is preset for the new operand 
(address constant) . The entire Polish str- 
ing, including the preformatted address 
constant entry, is copied into working 
storage- From there it is copied back in 
the new order, in blocks of operands. 



Each block consists of all operands with 
the same removal level and loop variable 
indicator. For each block a string of + 
signs with the maximum type code, is placed 
in a pushdown list and copied into the 
revised string to connect the operands 
within that block. For each block, an 
operator is set aside in a pushdown list: 
the operator being ! if the loop variable 
flag is raised, or + otherwise. The push- 
down list of block operators is moved into 
the revised string when the removal level 
drops below the current level, and the 
pushdown list is reinitialized with the ? 
operator. When a • ! • operator is 
selected, if a •?• has not been put on the 
block operator list, then the induction 
variable is the least removable term. If 
the loop is innermost with no external 
calls (i.e., the GLOBAL flag is on) a split 
subscript is created. This is done by tak- 
ing the expression in the ERF %^ich has the 
form: 



IVAR OPND2 * 

where OPND2 can be a constant or an expres- 
sion, and changing it to the form 

0PND2 ZERO ! 

where ZERO is an ERF operand for the con- 
stant 0. A •?■ operator is then added to 

the block operator list so that it will 
split the removable parts of the expression 
(e.g., the adcon) from the recursive. When 
all blocks have been moved, the pushdown 
list of block operators is moved into the 
revised string. 
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CEKKA -- Acquire Entry from Compate and 
Removal Table 

This routine locates one e^ntry in the 
compute and removal table whicn falls 
within a given range of PRF locationr , if 
at least one such entry exists. See Chart 
DP. 



next hash entry. The index is then com- 
pared to the cell LOCHCR, which contains 
the original index. If they are equal , the 
entire table has been searched and the exit 
IS taken- If they are not equal, the new 
HCRT location is loaded into register P2 , 
and the routine returns to the top to save 
this value in LOCCRT. 



ENTRIES ; The entry point is CEKKAP^.. Reg- 
ister P2 contains the location of a byte, 
four bytes in front of a CRT pointer. Reg- 
ister P3 contains the hash table index of 
the original entry point (al.io in LOCHCR) . 
Register P4 contains the limxting c'RF loca- 
tion. Register Nl convers tne interconi 
area, and register LI covers the work area. 

EXITS ; If register P2 is zero, no valid 
entry was found. Otherwise, register P2 
contains a pointer to the CRT table. 

LOCCRT contains the previously found CRT 

entry (used for deleting) . Registers P5 
and P6 are returned unchanged. 

OPERATION ; Upon entry, CEKKA saves the 
register P2 in the cell LOCCRT (the proce- 
dure is also done when the routine loops 
around) . This is tne location of either an 
HCRT entry or a CRT entry. (See "Hash 
Table for Compute and Removal Table and 
Triad Entries".) The location is used to 
relink the chain and to delete an entry 
from the CRT. 

The pointer to the next CRT entry is 
checked for an end-of-chain. If it is not 
an end-of-chain, the location of the indi- 
cated entry is loaded into register P2. 
The forward compute point in the CRT entry 
is compared to the limiting PRi** location 
(register P4) - If the FCP is not higher 
than the limiting PRF location, a legiti- 
mate CRT entry exists, and the exit is 
taken. 

If the FCP is higher than the limiting 
PRF location or if the CRT pointer was an 
end-of-chain, register P2 is set to zero, 
so that any exits will indicate "no valid 
entry found. " The limiting PRF location is 
converted to a hash index and compared to 
register P3 in order to determine if the 
search should be continued. If they are 
equal, the limiting PRF location is checked 
against the current PRF location, to deter- 
mine if the entire table should be checked. 

If the limiting PRF location is within 
1024 bytes of the current PRF location, the 
search is completed and the exit is taken. 
If not, the entire table must be searched. 

In this case, or if the limiting hash index 
does not equal register P3, register P3 is 
checked to see if the top of the HCRT has 
been reached (255) . If it has, register P3 

is set to zero, the bottom of the HCRT. If 
not, 1 is added to the index to examine the 



CEKKD 



Polish Expression Generation 



Routine 

The function of CEKKB is to convert an 
expression from triad table format to 
expression file (ERF) format to be placed 
in the program file. It is used to reform 
removed and loop control expressions. See 
Chart DQ. 

ENTRIES ; The entry point is CEKKBA- Reg- 
ister P2 contains the location of the triad 
pointer for the start of the expression. 
Register P5 contains the location of the 
current PRF entry. Register P6 contains 
the location of the next available word in 
the PF (used to store the EF entries) . 
Register Nl covers the intercom area, reg- 
ister N2 points to the first available word 
in working storage, and LI covers the work 
area. 

EXITS : Register P6 points to the new first 
work in the PF. Register N2 points to the 
new first word in working storage. Regis- 
ters P5 and Nl are the same as when 
entered. Registers N3 , L2 , and P2 through 
P4 are saved and restored. A pointer to 
the last EF entry filed is in RMVAL. 

Three error conditions are detected in 
this routine: 

1. Overflow of the program file. 

2. Overflow of the working storage area. 

3. An illegal type code in the symbol 
table. 

For all conditions, the standard Phase 3 

error exit (CEKKRE) is taken. 

OPERATION; This routine uses an operator 
pushdown list (Type 2) of its own to build 
a left-hand Polish string from the triad 
table entries. It follows the left (OPl) 
branch of each expression until a primitive 
is reached, then it takes the first right 
branch (OP2) above the primitive and 
repeats. The output expression is formed 
in the program file and is followed by a 
field (RMVAL) which links it in a chain of 
expressions connected to a BLl, BL2, or BL3 
entry. 

The dummy operator a, which is intro- 
duced for a constant subscript or an induc- 
tion variable outside a subscript, is 
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deleted in this routine, and the two 
operands (variable and ad con) are combined 
to produce one variable entry in the 
Polish. If the induction variable is rec- 
ognized Cin a subscript, not under the B} , 
it is replaced with the increment expres- 
sion, and, if that is a constant, the pro- 
duct of two constants is replaced with a 
new constant « 

When the right operand of a triad 
flagged as 'split subscript' is recognized, 
special processing takes place. As in 
normal subscript expressions, the loop step 
is introduced into the expression; constant 
arithmetic being done where required. If 
the split subscript is also the 'fiXLE on 
recursive' candidate, the symbol table 
pointer to the constant recursive step is 
saved so that its GIRL entry can be deleted 
by CEKKW« 

For a special begin loop 2 entry CBL2GT 
is on) , a dummy triad entry is built in 
working storage and pointed to by a new 

OPT2 entry. The program is repeated to 

file a test expression in the EF. 



CEKKO -- Save Popularity Counts for 
Register .Assignment 

The function of this routine is to cre- 
ate new entries as needed in the list of 
expressions to be considered for global 
register assignments and to keep a popu- 
larity of usage count. See chart DR. 



ENTRIES: 



This routine is entered at CEKKOA 



with the following register assignments: 



PI 
P2 



P3 
P4 



Weight 

Address of Triad entry. Symbol 
Table entry of Adcon, or expres- 
sion name 

Indicator CO = Symbol entry, 1 = 
Triad entry, 2 = expression name) 
Level in which the popularity is 
to be counted. 



EXITS : Registers P5 and P6 are returned 
unchanged. 

The new GIRL entries are stored in work- 
ing storage. If working storage is over- 
flowed, the Phase 3 error exit is taken. 

OPERATION: Opon entry CEKKO checks the 
indicator in P3. If it is set to zero, 
register P2 contains a symbol table pointer 
which is to be saved. If the indicator is 

set to 1, P2 contains a triad pointer. In 
this case the triad location is computed, 
and the name field is loaded into P2. If 

the indicator is set to 2, the name is 
already in P2. In both cases, a X»7000» is 
added to the name, so that Phase 4 can dis- 
tinguish names from symbol table pointers. 



The location of the PLP table entry for 
the level given in register P4 is deter- 
mined. The GPLINK chain points to GIRL 
table entries for the loop; this chain is 
followed until an end-of-chain or until the 
GLBL of a GIRL entry matches register P2. 

If a match is found, the weight (regis- 
ter PI) is added to the popularity count in 
the GIRL entry, and the exit is taken. 

If the end-of-chain is found, a new GIRL 
entry is linked into the GPLINK Cit will be 
the new end-of-chain). Register P2 is 
stored as the GLBL, and the weight is 
stored as the popularity count. The exit 
is then taken. 

CEKLB — File Constant and Covering Adcon 

The function of this routine is to file 
a constant, compute and file its covering 
adcon, and compute the displacement. See 
Chart DS. 

ENTRIES : The entry point is CEKLBA. ^ Reg- 
ister PI contains the 4-byte address con- 
stant Cadcon) to be filed in the symbol 
table format of SLOC and storage class 
CSTCL) . Register P2 contains either the 
ERF location of where the adcon pointer is 
to be stored or zero if the adcon pointer 
should not be stored. Register P4 contains 
the symbol table location of the original 
entry for which the adcon is being filed. 

EXITS ; Registers P2, P4, P5, and P6 are 
returned unchanged. 

When the return code found in register 
L3 in nonzero, and error occurred in the 
executive subroutine. The Phase 3 error 
exit is taken. 

OPERATION: Upon entry CEKLB saves the 
storage class byte (STCL) , which is assumed 
to be the right-most byte of register PI. 
The parameter is put into an even- numbered 
working register and shifted into the fol- 
lowing odd-numbered register, with the sign 
being extended so that the SLOC value is 
right- justified in the odd-numbered regis- 
ter. This value is now divided by the 
value 4080, which represents the number of 
bytes covered by an adcon. The result is a 
page number in the even-numbered register 
and a displacement in the odd- numbered reg- 
ister. If the sign of the resulting dis- 
placement is negative, the page number is 
reduced by 1 and the displacement is 
increased by 4080. If subscripts are being 
processed CSWCeSB^O) or if the EF location 
(register P2) is zero, the displacement is 
not saved; otherwise, it is stored in the 
indicated EF entry. 

In either case, the page number is mul- 
tiplied by 4080, to compute the page bound- 
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ary locatiO'n. The result is the new SLOC, 
which is shifted, and the saved STCL is 
inserted, in the right -n.ost byte. Ine 
resulting word is stored in TECNSl for the 
executive subroutine which is now entered. 
The executive subroutine checks the symbol 
table, to see if an entry^ has already been 
filed for the parameter. If one has not, a 
new entry is created in the symbol table. 

Upon return from the executive subrou- 
tine, the return Qode (register L3) is 
tested- If it is nonzero, an error 
occurred in the executive subroutine and 
the error exit is taken. If the return 
code is zero, the symbol table entry for 
the parameter (input in register P4) is 
checked to see if the item is a formal 
argument. If it is not, the exit is taken. 
If it is a formal argument, the cell TEGNU 
in Intercom is checked. If TEGNU is non- 
zero, a new adcon was filed for the last 
parameter. In this case, an entry is made 
into the formal argument adcon table 
CFAAT) . The location of the next available 
entry in FAAT is found in TEFAAT in inter- 
com. The adcon 's symbol table pointer in 
TEPNTR in intercom is moved to FhAT. The 
STCL is moved from the argument's symbol 
table entry to the FAAT entry. The FJyiT 
location is increased by four bytes, to 
point to the next entry, and restored in 
TEFAAT. The exit is then tanen. 



The location given in EFSAV points to 
the ! operator. By using a backward scan, 
the start and end of OP2 are found and 
saved. OPl is then copied into the EF, and 
its last use flag is cleared in the origi- 
nal expression. 



If the loop is not marked as BXLE on 
recursive, a new term is inserted into the 
expression to generate an expression of the 
following form: 



(OPl) CD ♦ C0P2) ♦ [the + replaces 

the i] 

where 

T is an expression of the form 

U - L -i- S 

s 
U = Upper limit 
L = Lower limit 
S = step size 

This routine will perform constant 
arithmetic wherever possible to reduce the 
T expression. The following cases are 
considered. 

1. L = Constant, U = Constant, S = 
Constant 



CEKLI — Loop Test- Expression Generator 

This routine generates the test expres- 
sion, used for determining the end of a DO 
loop, by modifying the last recursive 
expression. See chart DT. 

ENTRIES : The entry point is CEKLIA. Reg- 
ister P6 contains the EF point for the next 
entry, register Nl covers the intercom 
area, register N2 contains the next avail- 
able word in the work area, and register LI 
covers the PSECT . 

EXITS : Register P6 points to the new next 
entry in the EF| registers Nl, N2, and UL 
are unchanged. 

OPERATION: The location of the recursive 
expression to be used for generating the 
test expression is found in the word EFSAV. 
It was saved as CEKKB regenerated the 
recursive expression at the BL2 entry. The 
form of the recursive expression is assumed 
to be: 



(OPl) C0P2) I 



where 



OPl can be a constant or an expression 
0P2 can be an adcon, residue, expres- 
sion, or constant 



A new constant, 

t = U-L-i-S , 
S 

is calculated. Two subcases then 

exist: 

a. If OPl is a constant, a new con- 
stant t2 = t ♦ OP 1 is formed, 
filed in the symbol table, and 
entered in the EF to replace OPl 
forming 

eta) C0P2) + 

b. If OPl is not a constant, t is 
filed in the symbol table and 
inserted to form the expression 

(OPl) Ct) ♦ (OP2) -I- 

2. L = Constant, U = Constant, S = 
Variable 

A constant, t = U - L, is calculated, 
filed in the symbol table, and 
inserted to form 

(OPl) (tS + S /> * (0P2) + 

3. L = Variable, U = Constant, S = 

Constant 
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A constant, t = U + 3, is calculated 
and filed in the^ symbol table. Two 
subcas€?s are considered: 

a. If the step size is 1, the divide 
is omitted to form the expression 

COPl) Ct L +) ♦ COP2) + 

b. If the step size is not 1, the 
expression is 



L ■= Variable, U = Variable, 
S = Variable 

The full expression is inserted to 
form the expression 

(OPl) CU L S -I-+ S / IMAX) ♦ COP2) + 

If the loop is marked as a BXLE on 
recursive, the recursive expression has the 
form: 



COPl) Ct L + S /) ♦ COP2) + 



constantl constant2 



4, L = Constant, U = Variable, S = 
Constant 

A constant, t = S - L, is calculated 
and filed in the symbol table- 
au If step is equal to 1, the expres- 
sion formed is 

COPl) CU t + IMAX) * C0P2) + 

b. If step is not equal to 1, the 
expression is 

(OPl) (U t + S / IMAX) ♦ COP2) + 

5. L = Variable, U = Variable, S = 
Constant 

a. If step is equal to 1, the expres- 
sion formed is 

(OPl) CU L S +«•- IMAX) ♦ CGP2) + 



where constantl is the value that is put 
into register lt| by Phase i| , and constant2 
is zero, the initial value of the 
recursive. 

The test expression generated has the 
form: 

constants U L + ♦ 

where constants represents a new constant 
generated by dividing constantl from above 
by the loop step- 
When both the upper and lower values are 
constants, the test expression is merely 
one constant EF item. 

In either case, an EF item for constants 
is created, and its pointer is set in the 
INC field of the BL2. This is used by 
Phase 4 when the loop is "materialized on 

exit, " 



b. If step is not equal to 1, the 
expression generated is the same 
as given in 6 Cbelo^*/) . 

L = Variable, U = Constant, 
S = Variable 

L = Constant, U = Variable, 
S = Variable 



An internal subroutine, SETUP, is 

entered to generate an EF entry for each of 
the three loop parameters. A flag is set 
for each parameter, to indicate whether it 
is a constant or a variable- These flags 
are then tested to determine which case 
exists, and the proper subsection is 
entered to generate the test expression. 
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SECTION 6: PHASE 4 



INTRODUCTION 

The objective of Phase 4 is to produce 
from the program file (PF) , which is its 
primary input, a representation of the 
object program in a form very close to 
machine code, the code file, which is its 
primary output- Other output consists of 
entries made in the symbol table; parameter 
list entries and V/R adcon-pair entries 
arising from external references? location 
counter values associated with statement 
labels; numeric constants filed as comple- 
ments of constants filed as complements of 
constants referenced in the PF. 

The major functions of Phase 4 are pri- 
marily oriented about source program state- 
ments and expressions as they are repre- 
sented in the PF. A documentation module, 
or component, is associated with each of 
these major functions. 



PHASE 4 PROCESSING 

Processing is directed by the phase con- 
troller CPHAS4) , which simply performs a 
single scan of the PF. During this scan 
PHAS4 passes control to the particular PF 
entry processor appropriate to the identi- 
fication of each PF entry encountered. Its 
sole functions are to perform this scan, to 
select the processors, and to terminate 
Phase 4 processing when the end program 
item is encountered in the PF. The follow- 
ing list indicates the relationship between 
the source language staten^nts and the PF 
entry processing routines; 

Routine Source Language Features 
Name Processed 

ENT Main program or subprogram main 
or alternate entry — entry pro- 
logue generation. 

LABEL Source- or compiler- created 
statement label . 

EQOAT Arithmetic statement. 

AIF Arithmetic IF statement. 

LIF Logical IF statement. 

GOTO Unconditional GO TO statement. 

ASSIGN ASSIGN statement. 

AGO Assigned GO TO statement. 



CGO 

CALL 

RTRN 

BLl 
BL2 
BL3 

ENDLP ^ 
RD 

OLIST 
NDLST 
STOP 



Computed GO TO statement. 
CALL statement. 
RETURN Statement. 

DO statement 



All I/O statements. Generate 
transmission initialization call. 

Any I/O statement that includes a 
list. Generates list element 
transmission callCs). 

Any I/O statement that includes a 
list. Generates termination 
call. 

STOP and PAUSE statements. 



A major component of Phase 4 is the 
arithmetic generator, AGEN. Its function 
is to generate code to evaluate the expres- 
sions that are represented in the PF. AGEN 
is called to process the operands of any PF 
statements which may reference either gen- 
eral arithmetic expressions or subscript 
expressions. 

AGEN is primarily a control routine 
which directs the activities of expression- 
operator generating routines. These lower 
level routines are tailored to process 
specific arithmetic operators, or even 
specific opera tor /type combinations. These 
routines, as well as the higher level PF- 
entry processing routines, make use of a 
collection of service routines, which are 
categorized and whose functions along with 
those of the higher level routines are sum- 
marized below. 

Expression Generator Control Routines 
AGEN Expression generator control. 
TRBLD Expression tree fom^tion. 
WGHT Order of evaluation determination. 
CSX Common expression usage count 
determination. 

Expression Operator Generating Routines 

RPLUS Real addition and subtraction. 

RMUL Real multiplication. 

RDIV Real division. 

IPLUS Integer addition and subtraction. 

IMPLY Integer multiplication. 
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IDVDE 
LADDR 

CPLOS 

CMUL 

CDI¥ 

RLTNL 

ANDOR 

MAX 

FUNC 

COMMA 

DCOM 

OPENl^ 

OPEN2 

0P,EN3 

OPENtI 

OPENS 

OPEN6 



Integer division. 

Special addition by means of LA 

instruction- - 

Complex addition or subtraction. 

Complex multiplication. 

Complex division. 

Relational operations. 

Logical operations. 

Maximum and minimum operations. 

External function reference 

operations . 

External function argument 

processing. 

Open function processor selector. 



Inline (open) function 
processors • 



Expression Generation 

The first stage of expression generation 
converts the expression form, in which each 
binary operator is preceded by first its 
left and then its right operand, to a tree 
form (see Figure 24). In expression form 
the relationship between operator and 
operand is implicit in the ordering of the 
expression. In tree form the relationship 
is made explicit by linking each operator 
to its operands with explicit address 
pointers. The tree is also backlinked so 
that each nonprimitive operand (operator) 
is linked to the operator upon which it 
depends. The tree is now eguivalent to a 
push-down table with space at each level 
Ctree node) to record information about the 
generation status at that node. 



Memory Reference Covering Routines 
MEMAC 

COVER 
SADDR 
LBL 
FETCH 



During the process of conversion to tree 
form, conversion function operations are 
introduced, where necessary, to obtain type 
compatibility between the operands of cer- 
tain of the operators. This is done to 
reduce the number of individual cases pre- 
sented to the expression-operator 
generators - 



Operand-Reference Optimizing Routines 

SELOP 

SLPOS 

SLONE 

SELGM 

SELGD 



Operand Locating Routines 
KEY 

KEYl 

■PNDAR 

FNDFR 



When the expression tree has been 
created, the order in which the component 
operations of the expression are to be 
generated is determined. The language 
rules reguire that expressions be asso- 
ciated from left to right. This associa- ^ 
tion is explicit in the expression form 
input to Phase 4, and converting to tree 
form does not change this association. 
However, it does allow easy change in order 
of computation at any level in the tree. 
For example, consider the expression 

{A*B) + CC+D) 



Operand-CJsaqe Processing Routines 

OPND 

RSLT 



which is represented by Phase 1 as 
AB*CI>i-+ 



Register Selection Routines 
SEI^R 

SELDR 
SELFR 

Register Assignment Routines 

ASAR 

ASARS 

ASFR 

ASFRS 

Temporary storage Allocating Routines 
FNDWS 

RLSWS 

Miscellaneous Routines 
INSOT 

FLUSH 
EDIT 



If generation is to proceed directly 
from the latter, the easiest and most 
natural way to proceed would be first to 
compute A*B, then C+D, and then to add the 
two partial results. However, the language 
does not reguire this ordering. 

The expression in tree form is written 
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ADCON 
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31 
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U 
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4 
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3 
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Legend 
ID 



TYPE 



identifies the Tree Table entry : 

1 = Operator 

2 = Common Expression 

3 = Adcon 

5 = Variable 

6 = Constant 

7 = Function 

8 = Residue 



Identifies the entry type: 

1 = Logical *1 

2 = Logical *4 

3 = Integer *2 

4 = Integer *4 

5 = Real *4 

6 = Real *8 

7 = Complex *8 

8 = Co^mplex *16 



u 


unassigned 




F6 


I/O flag 




F5 


use secondary temp. 




F4 


examined 




F3 


weighted 




F2 


computed 




Fl 


sign 




BLINK 


link to first byte of 
node up (back- link ) 


operator of n 


LOP 


link to first byte of 


left operand 


ROP 


link to first byte of 


right operand 


OP 


operator code 




REG 


register ( if R - 1 j 




M 


In memory 




MS 


memory sign 




R 


in register 




RS 


register sign 





Figure lU. Expression Tree 
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Given this form, with direct address 
links as indicated, it is no easier to com- 
pute first along one 'branch of the highest 
level operator than it is along the other. 
Thus, this representation allows a choice 
of order of computation based apon criteria 
which are designed: 

1. To minimize the numbers of active par- 
tial results and thereby to use fewer 
registers . 

2. To favor computa£ion of denominators 
before numerators in order to avoid 
unnecessary loads and stores • 

3. To compute first along paths contain- 
ing function references so as to mini- 
mize the possibility of having to 
store partial results which are in 
registers volatile with respect to the 
function calls . 



The order of computation is determined by 
the routine WGHT which assigns at each tree 
node a priority number Cor weight) and 

records it in the tree. 



Starting with the major operator of the 
tree, AGEN examines the left and right 
operands. If neither is primitive Ca vari- 
able, a constant, or an already computed 
operator) , the link is followed from the 
operator to its higher weighted operand. 
If the weights are equal, then arbitrarily 
the left link is followed. This new, lower 
level, operator is then examined in the 
same manner. If at any time only one 
operand is primitive, the other link is 
followed. The search is concluded when an 
operator with two primitive operands is 
found. At this point generation for the 
operator proceeds. 



The operator code and expression type 
are used to select an express ion- operator 
generator, and the appropriate module is 
invoked. 



The expression-operator generator is 
tailored to the operation to be performed 
and to the types of its operands, with con- 
sideration given to the location of 
operands (in registers or storage); the 
requirement for even/ odd register pairs? 
the availability of the register containing 
an operand; the selection of which operand 
register is to contain the result; etc. 
Lower level routines are invoked for 
various functions: to select registers; to 
determine when operands are no longer 
needed and to free the registers in which 
they reside; to protect an operand by mov- 
ing it to another register before the con- 



tents of the former register are altered; 
to assign temporary storage and store 
operands in temporary storage for later 
use; to obtain cover for and assign B2, X2 , 
and 02 instruction fields for storage 
references to operands; to record the loca- 
tion of the operation result for later 
reference in generation; etc. 



When the expression-operator generator 
has completed its task, it returns control 
to the arithmetic expression generator, 
which marks the tree node "computed" 
(primitive) . 



The subscript connector C : ) , open func- 
tion argument connector (,,), recursive 
operatorC!), and base/index connector(?) 
require no generation, and the tree node at 
which one of these occurs in simply marked 
"computed". The back- link is inspected 
next. If it is null (zero) , generation is 
complete and return is made to the module 
that called the arithmetic expression 
generator. If the back-link is not null, 
it is followed to the next higher level 
operator, from which point generation pro- 
ceeds as above. 



Expression Storage 

Whenever a noncommon operation is com- 
plete, whenever a noncommon operand is 
loaded into a register without the inten- 
tion of immediately operating upon it, or 
whenever a quantity is stored in temporary 
storage, a record of the transaction is 
made. If the operand is being loaded into 
a register, the corresponding register 
number is recorded at the appropriate node 
of the expression tree. If the operand is 
being stored, the temporary storage assign- 
ment is recorded in the tree. Note, howev- 
er, that such information concerning 
variables and constants is not recorded in 
the tree. Thus, the expression tree con- 
tains the current location of any computed 
noncommon partial result. 



Common-Expression Storage 

Whenever a transaction such as the above 
involves a common expression, the transac- 
tion record is made in the Name Table 
(Figure 25). Each common expression has a 
name (number) which is its identification. 
Associated with each distinct common ex- 
pression is a Name Table entry which is 
used to record the location of the common 
expression in the same way that the expres- 
sion tree is used to record the location of 
noncommon expressions. 
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NLNK link to loop Table entry of last use of recursive increment, if 
applicable; otherwise, zero. 



TYPE EF Type Code 



register is globally assigned over the 
scope of a DO loop, or whether or not a 
floating-point register CO or 4) is linked 
as a complex quantity pair to the next 
higher register. This first word applies 
to the register as a whole. 
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Figure 25. Name Table 



Register Storage 

Two tables are used to keep a running 
record of the contents of the arithmetic 
registers. The MRM table (Figure 26) con- 
tains one entry for each of general regis- 
ters 1 through 15 (since general register 
is used simply as a transient register and 
its contents are never retained, this reg- 
ister is not represented in the MR14 table) . 
The MRMFR table (Figure 2 7) contains one 
entry for each of the four floating-point 
registers . MRM is the symbol applied gen- 
erically to the register tables, and often, 
when no confusion can result, MRM is used 
interchangeably for MRi4 and MRMFR. 

The two tables have generally similar 
structures. The first word of each entry 
contains two status indicators, the first 
of which indicates whether the register is 
available for selection. The second indi- 
cator records whether or not the general 



Legend 
MSL 
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1 = Nonselectable 
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ID 



Nongloi3al 
Global 



MRMTYP EF Type Code 
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= Inactive 

1 = Active 
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1 = Negated 



Word 2 occurs once for each general regis- 
ter. Words and 1 occur four times for 

each general register. 



Figure 26. MRM Table 
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Word 2 occurs once for each floating regis- 
ter. Words and 1 occur four times for 
each floating register. 

Figure 27. MRMFR Table 



Next, for each entry r is a set of four 
pairs of words; the first pair is called 
the initial entry and the rest, synonym 
entries. The initial entry may or may not 
be active; but, whenever there is at least 
one active synonym, the initial entry is 
active. Whenever a quantity is loaded into 
and assigned to a register, or computed in 
and assigned to a register, a record is 



made in the initial entry of the appropri- 
ate MRM table entry to indicate the pres- 
ence of the assigned quantity in the corre- 
sponding register. Synonym entries are 
sometimes made for quantities which appear 
on the left-hand side of arithmetic state- 
ments. Consider, for example, the sequence 
of statement: 

1 A = B 

2 C = A 

3 D = B 

The quantity B is loaded into some reg- 
ister, and an assignment for B is recorded 
in the initial entry of the corresponding 
MRM table entry. The store into A causes 
the insertion of A into the first synonym 
entry. In statement 2, A is found to be in 
a register, so no load is generated, simply 
a store into C which is then recorded in 
the second synonym entry. In statement 3, 
B is found to be in a register so a store 
into D is generated, and D is recorded in 
the third synonym entry. 

When an attempt is made to record a 
fourth synonym, the first Coldest) synonym 
entry is erased, the remaining two are 
moved up one slot, and the new synonym is 
recorded in the third synonym position. 
The initial entry is never changed by this 
procedure. 

Whenever a quantity which has a current 
MRM table entry changes value, the corre- 
sponding position of the appropriate entry 
is vacated. If an initial entry thus 
becomes empty, the first active synonym is 
installed as the initial entry; or if there 
are no active synonyms, the MRM entry 
becomes empty. 

General Register Selection 

The general registers are used to co^n- 
tain virtual storage addresses and to per- 
form address arithmetic and integer, logi- 
cal, and relational computations. General 
registers 1 through 11 and 11 and 15 are 
treated as equivalent for purposes of reg- 
ister selection, with the single exception 
that if there is no other basis upon which 
to make a selection, the lowest numbered 
available register is selected arbitrarily. 
General register 13 is used to cover the 
first page of the object program PSECT 
(sometimes called the adcon page) , and gen- 
eral register 12 is used to cover local 
tonporary storage. Both of these registers 
are made unavailable for any other use 
simply by raising their MSL and MGBL flags 
in the corresponding MRM Table entries. 
General register may be used in the nor- 
mal way as a member of the 0/1 register 
pair, but register itself may never be 
selected or assigned. It is used only in 
extremely local context. 
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In certain situaticns use of registers 
1, 14, and 15 is restricted. For example, 
when at the top of a DO loop an address 
constant must be loaded into a register and 
assigned globally to that register over the 
scope of the loop, none of these three 
registers is selected because of its spe- 
cially required use in the subroutine link- 
ages. Otherwise, the register selection 
routines make their selection on the basis 
of the register contents - 



The general criteria for selection of 
registers involve the relative cost of hav- 
ing to reload the quantity which is in the 
registers at the time of selection. Clear- 
ly, if a register is empty, it is a prime 
choice for selection. In turn a register 
which contains a constant whose absolute 
value is less than 4096 and which therefore 
may be reconstructed with a relatively fast 
lA (load address) or SR (subtract register) 
instruction is likewise a good selection. 
On the other hand, registers which contain 
partial expression results (operators) are 
the poorest choices since they niust be 
stored in temporary storage and later 
fetched from there. A register which con- 
tains an unstored common expression is a 
somewhat better choice , since while the 
partial result is known to be last used in 
the current expression, the common expres- 
sion has more than one use and may there- 
fore have to be stored eventually, so that 
not storing it now may only be postponing 
the inevitable. 



/ \ 




The plus generator first selects a 
floating-point register, say 4 , in which to 
perform the addition. It then requests 
from MEMAC cover for A. The latter routine 
recognizes that the operand is a variable. 
It obtains the adcon pointer from the vari- 
able item and searches the MRM table for a 
register containing that adcon. If one is 
found, the values X2 = , B2, and D2 are 
returned, where B2 is the register and D2 
is the displacement indicated in the vari- 
able item. If the adcon is not in a regis- 
ter, MEMAC selects one and loads the adcon 
into it. It then returns X2, B2, and D2 as 
above. 

The plus generator will now generate the 
instruction 

LE 4, D2(0,B2) 

MEMAC is then entered to obtain cover for 
B. In similar fashion it returns new 
(although possibly the same) values of B2 
and D2, and the plus generator produces 

AE 4,D2(0,B2) 



The general register selection routines 
apply these criteria by determining the 
contents of each register by an examination 
of its corresponding MRM table entry. A 
weight is assigned to each register accord- 
ing to those criteria, and the register 
with the highest weight is selected. 



Storage Reference Processing 

Cover is obtained for storage reference 
(simple and subscripted variables, con- 
stants, and temporaries) and most branches 
by one of two subroutines: MEMAC and 
COVER. MEMAC is a more general routine 
which is used to obtain cover for a 
reference to any given expression tree 
quantity. COVER is used in situations 
where it is known that all that is needed 
for cover is an adcon, and the symbol table 
pointer for the adcon is at hand. 

Consider first the expression A-i-B in 
which neither A nor B is in a register and 
which is represented in expression tree 
form as : 



Consider next the expression X + Y (I) 
where X and Y are of type REAL*4, Y is an 
array, and I is neither a loop index vari- 
able nor removable from a DO loop. The ex- 
pression is represented in the expression 
tree as: 




where the effective displacement, D2, is 
given in the variable item Y, and the rest 
of the storage assignment and subscript 
offset has been subsumed in the item indi- 
cated by "adcon". It should also be 
pointed out that if generation is now tak- 
ing place for the plus operator, generation 
of all lower level operations has taken 
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place — ■ in particular, the formation of 
the product 4*1. 

MEMAC is first asked for cover for X 
which — as before ~ results in generation 
ofy perhaps, 

LE 2,D2C0,B2) 

where D2 plus the contents of B2 is the 
address of X» 

Then MEMAC is asked for cover for the 
right operand of the plus, the subscript 
connector (: operator). MEMAC looks 
beneath the colon and finds a base/index 
connector C? operator). Each of the 
operands of the ? operator is now indivi- 
dually obtained in general registers, eith- 
er by locating the quantity in a register, 
or by selecting a register and loading the 
quantity as above. D2 is obtained from the 
variable item Y, and the registers contain- 
ing the left and right operands of the ? 
operator are returned as X2 and B2, respec- 
tively. The plus generator now completes 
the addition by generating 

AE 2, D2CX2,B2) 

Subscripted variables containing* only 
expressions that are removed from and com- 
puted outside a DO loop have the form 

'' \ 



Expression 



where the right-hand operand of the colon 
operator is the removed expression. In 
this case, the expression is not introduced 
by a ? operator, and MEI^iAC simply ensures 

that the expression is in a register, as 
above, and returns D2 from the variable 

item, X2 = 0, and B2 as the register con- 
taining the removed expression. 

DO Loop Processing 

The generation associated with DO loop 
control, ren»ved expressions, and recursive 
expressions is governed by the begin loop 
l(BLl) , begin loop 2 (BL2), begin loop 3 
(BL3), and end loop PF items. The pro- 
cesses performed and the code generated at 
BU- and BL2 are "out of the loop"; that is, 
they are considered as loop initialization 
and are performed only once prior to entry 
to a loop, not each time through the loop. 
BL3 and end loop mark the scope of the 
loop, and any code generated or processing 
done therein is considered to be within the 
loop. 




The BLl entry contains a list of as many 
as eight quantities (adcons or common ex- 
pressions) that are to be globally assigned 
to general registers across the upcoming 
loop. This list is scanned and transcribed 
to the current level of the loop push- down 
table, or loop table (see Figure 28). Dur- 
ing this process, for each entry which is a 
common expression, the G (globally 
assigned) flag of the corresponding name 
table entry is set. 



After the global assignment list has 
been transcribed to the loop table, a 
second list is scanned. This is a linked 
list of removed, nonrecursive common ex- 
pressions in the PF. Each of these expres- 
sions is presented to the arithmetic ex- 
pression generator for processing. This 
generation completes the processing at BLl. 



The processing at BL2 generates the com- 
putations associated with recursive expres- 
sions, assures that all quantities which 
are to be globally assigned in the loop are 
now in registers and globally assigned, and 
clears register storage in all registers 
which contain quantities not to be globally 
assigned. If any such quantity is not also 
in storage (not a variable, constant, sub- 
scripted variable, or a previously stored 
common expression) , temporary storage is 
obtained, and the quantity is stored. 



Recursive expressions are those whose 
highest level operator is the recursive 
operator ( ! ) . A recursive expression is a 
constituent of, or perhaps all of, an 
effective relative address. The recursive 
operator has been introduced in a subscript 
expression in place of any + operator whose 
left-hand operand is a function of a loop 
induction variable- At the same time, the 
occurrence of the induction variable has 
been replaced by the induction variable 
increment size specified in the correspond- 
ing DO statement. The reciirsive expression 
is to be initialized outside the loop and 
incremented after each pass through the 
loop. The recursive operator has the pro- 
perty that its right-hand operand is the 
initial value of the corresponding recur- 
sive expression, and its left-hand operand 
is the increment to be applied to the ex- 
pression at the end of the loop. 

A loop table entry is made for each 
recursive processed at BL2. The entry con- 
tains the name of the recursive (the recur- 
sive is always a common expression) and an 

expression-tree-like item representing the 
increment to the recursive entry. This 
infornation is retrieved from the loop 
table at the loop end in order to increment 
the appropriate recursive expression. 
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Mne- Mask 

monic value Meaning 

LMTRZ X'Ol" Loop variable material- 
ized; there is no test 
expression. Otherwise, 
loop variable not materi- 
alized; last recursive 
expression is followed by 
a test expression. 
Loop variable is to be 
materialized (calculated) 
on exit from loop. 
BXLE on recursive. Loop 
controlled at loop bottom 
by BXLE instruction. 
Not used. 

Loop controlled at loop 
bottom by BCTR 
instruction. 
Registers 14 and 15 may 
be globally assigned over 
loop. Loop bottom 
instruction will be BXLE 
l,14,d CBl). 

Registers 14 and 15 must 
be put in temporary 
storage before loop is 
entered, and must be 
restored at loop bottom 
before the BXLE l,14,d 
CBl) is generated. 
X'80» Not used. 



LIVA Loop variable covering-Adcon 
pointer. 



MTZEX X'02* 



RCSV X'04' 



X«08« 
BTR X'lO* 



GEL X«20 



TEMP X'40' 




LIVD Loop variable D2 field. 



LIVS Loop variable Symbol Table pointer. 



Figure 28 . Loop Table 



LINCA Variable or constant increment 
cover ing-Adcon pointer. 



Legend for Figure 28 



TEMPI Byte number of lowest temporary 
assigned at next outer DO Loop. 



LINCD ITariable or constant increment D2 
field. 

LINCS Variable or constant increment Sym- 
bol Table pointer. 



LLINK Link to Loop Table entry for next 
outer DO Loop. 



LTESTA Variable or constant upper limit 
covering- Adcon pointer. 



LRCSV Number of recursive expression to 
be incremented at this end DO. 

LLABL Symbol Table pointer to compiler- 
created label marking beginning of 
DO scope. Not applicable to level 
zero loop. 



LTESTD Variable or constant upper limit D2 
field. 

LTESTS Variable or constant upper limit 
Symbol Table pointer. 

LPGRl Up to 8 globally assigned 
quantities. 
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LPGR8 

LPGRi, = 8000 marks end o^f list. 

LPGRK7000 indicates Adcon Symbol 
Table pointer. 

7000<LPGRi<8000 indicates common 
expression whose name is 
LPGRi~7000. 

LRNAME Common expression name ot recursive 
expression, 

LID ID of increment or test expression: 

1 = Operator 

2 = Common Expression 

5 = Variable 

6 = Constant 

LTYPE Type of increment or test 
expression: 



3 
LSYM 



LCON 



LDIS 



Integer* 2 
Integer*4 

Symbol Table pointer of variable or 
constant increment. 

Symbol Table pointer of Adcon cov- 
ering constant or variable incre- 
ment or temporary assigned to 
increment or test expression. 

D2 field for variable, constant, or 
temporary reference. 

S Tree sign of increment or test ex- 
pression operator at creation of 
expression. 

IiNAME Name of increment or test expres- 
sion if a common expression. 

L L = 1 if last use of increment or 

test expression was encountered 
prior to Loop end; otherwise, L 
= 0. 

When the recursive processing is com- 
plete, the BL2 PF entry is examined to 
determine whether materialization of the 
loop induction variable is required. Such 
materialization implies that the value of 
the induction variable will be maintained 
in the storage location assigned to it. If 
materialization is indicated, instructions 
are generated to load the initial value of 
the induction variable into a general reg- 
ister and store it into its assigned loca- 
tion. Symbol Table pointers to the induc- 
tion variable, increment quality, and upper 
limit quantity are now recorded in the 
appropriate loop table fields. 

If materialization is not indicated, the 
arithmetic expression generator is called 
to generate the "test expression." 



It is assumed that whichever recursive 
expression has been processed last will 
also be processed last at the end of the 
loop (incremented there), and that this 
recursive will be tested against the test 
expression to determine whether the loop 
has been traversed the requisite number of 
times. The information identifying the 
test expression is added to the loop table 
following the entry for the last recursive 
expression, in just the same manner. 

Next, any quantity to be globally 
assigned over this loop and not already so 
assigned is processed. If it is already in 
one of general registers 2 through 12, the 
corresponding MRM table entry is marked 
"globally assigned". If it is in some 
other general register, or not in a regis- 
ter at all, then one of the registers 2 
through 12 is selected and made available, 
and the quantity is loaded into the 
selected register. Finally, all the 
floating-point registers and any general 
registers that are not now globally 
assigned are stored and cleared if their 
contents are not already in storage, or are 
cleared, otherwise. This completes the 
processing at BL2. 

At BL3 , four tasks are performed. 
First, the compiler-created statement 
label, marking the first instruction inside 
the loop, is placed in the code file and is 
identified by an entry in the loop table. 
Second, the arithmetic expression generator 
processes any expressions (dependent upon 
the induction variable) which may have been 
removed to BL3. Third, any temporary 
storage locations assigned at this loop top 
or at the next higher level are protected 
from reuse within the loop. Finally, the 
loop table is "pushed down" one level, 
ready to record information about any inner 
loop that may be encountered. 

When an end- loop item is encountered in 
the PF, the loop table is "popped up" one 
level so that the information regarding the 
loop now ending is once again in evidence. 
Instructions are generated to increment 
each recursive expression listed in the 
loop table entry by the amount specified 
therin. Next, the end-of-loop test is 
generated. If materialization was required 
for this loop, instructions are generated 
to increment and test the induction vari- 
able and to branch conditionally CBNL) to 
the loop top. If materialization was not 
required, the last recursive incremented is 
now tested against the test expression, and 
a conditional branch (BNE) to the loop top 
is generated. 

Next, the global assignment list is 
scanned, and for each entry the global 

assignment flag of its corresponding MRM 
table entry is cleared. Finally, all tem- 
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poraries assigned to trie next outer DO 
level and released -within the loop now end- 
ing are made available for reassignment. 



ROUTINE DESCRIPTIONS 

Phase 4 routines bear mnemonic titles as 
well as coded labels. The 5-character 
coded labels begin with the letters CEK; 
the fourth and fifth letters identify a 
specific routine. Most routines have only 
one entry point j for those tnat have mul- 
tiple entries, both the coded labels and 
the mnemonics are given for the alternate 
entries . A.ny mnemonic name oeginning with 
the letters TEV refers to an Exec routine 
or entry point, rather than to a Phase 4 
routine. The corresponding coded label is 
given in parentheses immediately following 
the mneitonic. 



There are no hardware configuration 
requirements for any Phase 4 routines. All 
these routines are reentrant, nonresident, 
nonpriviieged, and closed. All except 
Phase 4 Master Control CCEKNX) use the 
restricted linkage conventions. Return 
codes and output parameters, if any, are 
noted in the routine descriptions that fol- 
low Table 24. 



The relationships of routines constitut- 
ing this phase are shown in the following 
nesting chart (Figure 29) and decision 
table (Table 24). The relationships are 
shown in terms of levels; a called routine 
is considered to be one level lower than 
the calling routine. Phase 4 Master Con- 
trol is considered to be level 1. 
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Table 24. 



Phase 4 Decision Table (Part 1 of 12) 



Rout in e : 



-Phase 4- • ■ ' — - — - — ^ • --Level : 



^ ^ 




1 r^outines 






tRoutinel Usage 

L X 




I Called 

-X J 


L 


Calling Conditions 


r T 




T 1 


1 




|PHAS4 1 Phase 4 master controller 


|ENT 


To 


generate main program, subprogram, or 






1 


entry prologue. 






1 LABEL 


To 


process Statement Label definition. 






1 ECU AT 


To 


generate for arithmetic statement. 






|GOTO 


To 


generate unconditional GO TO. 






[AGO 


To 


generate assigned GO TO. 






1 CALL 


To 


generate CALL. 






IRTRN 


|To 


generate epilogue. 






|BL1 


To 


generate removed expressions. 






tBL2 


To 


generate recursives and make global 






1 


assignments. 






|BL3 


To 


generate DO loop top. 






lENDLP 


To 


generate for end of DO loop- 






1 OLIST 


|To 


generate for I/O list. 






1 NDLIST 


To 


generate for end of I/O list. 






|KD 


|To 


generate for I/O initialization. 






1 INSOT 


To 


make code file entry. 






ICGO 


|To 


generate computed GO TO. 






1 ASSGH 


To 


generate ASSIGN. 






|AIF 


ITo 


generate arithmetic IF- 






|LIF 


|To 


generate logical IF. 






|STOP 


|To 


generate STOP and PAUSE statements. 






I TEVRDM 


jTo 


issue diagnostic message. 



L J- - -„X X. — ^ ^ , , J 



Routine: 



-Pha se 4 • • ^ ■ ^— ^ ^ . ^ Level : 



ENT [Generate mam program, | INSOT | To make code file entry. 

I subprogram, or entry | LBL | To generate for branch to label. 

I prologue. | LINK |To generate load of V/R Adcon pair. 

I I SELSR I To select single general register. 

I I ASAR I To assign a general register. 

I I FNDAR I To search general register table. 

I |TEVI^ I To file an INrEGER*4 constant. 

I |TEVFL^ I To file an address constant. 
+ , ^^^_„„„ + ^ ^„ 

LABEL [Process Statement Label [INSOT |To make code file entry. 

j definition. [FLUSH [To reset and/or transfer register table 

I I I entry. 
^ ^ 4, 

EQUAT I Generate for arithmetic [AGEN (To generate expression. 

I statement. j SELSR [To select single general register. 

I JSELFR I To select single floating register. 

I I ME MAC I To get cover for storage reference. 

I I EDIT I To set comment item for code file- 

I I ASAR I To assign a general register. 

I JASFR [To assign a floating register. 

I [ASARS [To assign a general register synonym. 

I JASFRS [To assign a floating register synonym. 

I JOPND (To process operand. 

I I INSOT I To make code file entry. 

j |KEY1 I To determine status of single operand. 

i ITEVI2 [To file an INTEGER* 2 constant. 

I JTEVIil [To file an INTEGER*t| constant. 

I fTEVRa [To file a REAL+4 constant. 

I |TEVR8 I To file a REAL*8 constant. 

I |TEVC8 I To file a COMPLEXES constant. 

I ITEVC16 I To file a C0MPLEX*16 constant. 



L-, J. , ^ ^ , .. X i. . ^ . . J 
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Table 24. Phase ^ Decision Table (Part 2 of 12) 



Routine: — Phase 4- 



-Levelt 2- (Cont'd) --- 



h 



Routine 



Usage 



Routines 
Called 



Calling Conditions 



GOTO 



Generate unconditional 
GO TO. 



INSOT 

LBL 



"+- 



To make code file entry. 

To generate for branch to label. 



AGO 



Generate assigned GO TO. 



SELSR 
COVER 

INSOT 



To select single general register. 

To load specified Adcon into any general 

register. 
To make code file entry. 



CGO 



Generate computed GO TO. 



INSOT 

FNDIIR 

SELSR 

MEMAC 

AGEN 

SADDR 

: :VFL4 

x£VFL5 

TEVCRL 

TEVFIdL 



To make code file entry. 
To search general register table. 
To select single general register. 
To get cover for storage reference. 
To generate expression. 
To get local branch cover. 
To file an address constant. 
To file a parameter list entry. 
To create a label for the code file. 
To make Symbol Table entry for created 
label . 



h 



ASSIGN 



Generate ASSIGN, 



INSOT 
MEMAC 
TEVFL4 



To make code file entry. 

To get cover of storage reference. 

To file an address constant. 



AIF 



Generate arithmetic IF. 



AGEN 

FNDAR 

FNDFR 

MEMAC 

SELSR 

SELFR 

ASFR 

ASAR 

INSOT 

OPND 

LBL 



To generate expression. 

To search general register table. 

To search floating register table. 

To get cover for storage reference. 
To select single general register. 

To select single floating register. 

To assign a floating register. 

To assign a general register. 

To make code file entry. 

To process operand. 

To generate for branch to label. 



LIF 



Generate for logical IF. 



AGEN 
OPND 

FNDAR 

FNDFR 

MSMAC 

INSOT 

ASAR 

LBL 



To generate expression. 

To process operand. 

To search general register table. 

To search floating register table. 

To get cover for storage reference. 

To make code file entry. 

To assign a general register. 

To generate for branch to label. 



"H- 



CALL 



Generate CALL. 



AGEN 

INSOT 

SADDR 

LINK 

TEVFL4 

TEVFL5 

TEVCRL 

TEVFLL 



To generate expression. 
To make code file entry. 
To get local branch cover. 
To generate load of V/R Adcon pair. 
To file an address constant. 
To file a parameter list entry. 
To create a label for the code file. 
To make Symbol Table entry for created 
label. 



h 



RTRN 



Generate epilogue. 



INSOT 
FNDAR 
FNDFR 
TEVFL4 



-i- 



To make code file entry. 
To search general register table. 
To search floating register table. 
To file an address constant. 



Ifl2 



Table 24. 
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Routine: • — ^^ • — Phase 4- 

j. ^ — ^ ^ . — 



-Level: 



2- (Cont'd) 



Routine 



Usage 



Routines 
called 



Calling Conditions 



BLl 



Generate remoy'ed 
expressions . 



AGEN 

INSOT 

OPND 



To generate expression. 
To make code file entry. 
To process operand. 



BL2 



Generate recursives and 
ma ke g loba 1 
assignments . 



KEYl 
OPND 
RSLT 
COVER 

FNDJyi 
B^LUSH 

AGEN 

MEMAC 

INSOT 

SELSR 

ASAR 

FNDWS 

PH4MEE 



To determine status of single operand. 

To process operand. 

To protect operand. 

To load specified Adcon into any general 

register. 
To search general register table. 
To reset and/or transfer register table 

entry . 
To generate expression. 
To get cover for storage reference. 
To make code file entry. 
To select single general register. 
To assign a general register. 
To get next available temporary storage. 
To make table overflow error exit. 



BL3 



Generate DO loop top. 



AGEN 

INSOT 

OPND 

FNDWS 

COVER 

PH4MES 



To generate expression. 

To make code file entry. 

To process operand. 

To get next available temporary storage. 

To load specified Adcon into any general 

register. 
To make table overflow error exit. 



ENDLP 



Generate for end of DO 
loop. 



SELSR 

MEMAC 

INSOT 

FNDAR 

OPND 

COVER 

ASAR 

KEYl 

EDIT 

LBL 

RLSWS 

PH4MER 



--+ 



To select single general register. 

To get cover for storage reference. 

To make code file entry. 

To search general register table. 

To process operand. 

To load specified Adcon into any general 

register. 
To assign a general register. 
To determine status of single operand. 
To set comment item for code file. 
To generate for branch to label. 
To release temporary storage. 
To make machine/compiler error exit. 



RD 



Generate for I/O 
initialization . 



INSOT 

SELSR 

SELFR 

LINK 

TEVFL4 

TEVFL5 

TEWR 



-H- 



To make code file entry. 

To select single general register. 

To select single floating register. 

To generate load of V/R Adcon pair. 

To file an address constant. 

To file a parameter list entry. 

To file a V/R address constant pair. 



OLIST 



Generate for I/O list. 



LINK 

SELSR 

INSOT 

AGEN 

MEMAC 

OPND 

SELFR 

TEVFL4 

TEVFL5 

TEWR 



To qenerate load of V/R Adcon pair. 

To s ilect single general register. 

To make code file entry. 

To generate expression. 

To get cover for storage reference. 

To process operand. 

To select single floating register. 

To file an address constant. 

To file a parameter list entry. 

To file a V/R address constant pair. 
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Table 2t|, Phase ^ Decision Table (Part H of 12) 
Routine:- • — -— Phase ^■ — • • ^-— 



-Level : 



2- (Cont'd)-— 



r 


r 


T- ~ 


~T 






1 


1 Routines | 




|Routine| Usage 


1 Called 


1 


Calling Conditions 


L , 


-4_ ^- , 


- ± 


-J- 




r 


T 


T 


T 




1 NDLST 


1 Generate for end of I/O 

1 list. 


ILINK 
1 


|To 
1 


generate load of V/R Adcon pair. 


L__ ^. . 


^± -. 


_ i 


4- 




r 


T 


T 






ISTOP 


1 Generate for STOP and 


IINSOT 


|To 


make code file entry. 




1 PAUSE statements. 


ISELSR 


|To 


select single general register. 




1 


1 SELFR 


|To 


select single floating register. 




1 


[TEVFLl* 


|To 


file an address constant. 




1 


1 TEVFL5 


|To 


file a parameter list entry. 




1 


ITEWR 


|To 


file a V/R address constant pair. 



.^ ^ , X X , . J 



Routine: — ^ Phase 4- 

j. J, — ^ — -_ . . — ^__ 



-Level: 



LINK 


[Generate 


load of V/R 1 SELFR 


To 


select single floating register. 




1 Adcon pair. | SELSR 


|To 


select single general register. 






1 INSOT 


|To 


make code file entry. 






ITEVFL4 


[To 


file an address constant. 






ITEWR 


|To 


file a V/R address constant pair. 




^^ 


™ +^„. ^^^4 


H- 




AGEN 


1 Generate 


expression. |TRBLD 


|To 


convert Polish expression to tree form. 






|WGHT 


|To 


determine order of computation. 






|CSX 


|To 


count comnon expression uses. 






1 IPLUS 


To 


generate integer addition. 






ILADDR 


,To 


generate addition with LOAD ADDRESS. 






1 RPLUS 


To 


generate real addition. 






1 CPLUS 


|To 


generate complex addition or 






1 


subtract ion - 






1 IMPLY 


|TO 


generate integer multiplication. 






|RMUL 


To 


generate real multiplication. 






fCMUL 


To 


generate complex multiplication. 






1 IDVDE 


iTo 


generate integer division. 






IRDIV 


To 


generate real division. 






ICDIV 


jTo 


generate complex division. 






1 RLTNL 


To 


generate relational operations. 






lANDOR 


,To 


generate logical AND or OR. 






|MAX 


To 


generate for MAX operator. 






1 COMMA 


|To 


get function argument in storage with 






t 


correct sign. 






|FUNC 


|To 


generate function call. 




1 «. 


IDCOM 

X — J 


To 

L 


select open function module. 




— |. 


T - -| 






ASARS 


1 Assign a 
1 Synonym. 


general register (None 
1 

X J 


1 

L 






T 


T 1 






ASFRS 


1 Assign a 
1 synonym. 


floating register | None 
1 







i—^ . , ±^. . . ^ X^ 



Routine: ■ Phase 4- 



- Level: 



J. -.- ^ _— .. ^ ^-. 

|TRBLD I Convert Polish expression [None 

I I to tree form. | 



I 



|WGHT I Determine order of 
I computation. 



I- 

I CSX 



I None 



-+ 

I None 



I Count common expression 

I uses. 
-JL^. . . . ^— 
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Table 24. 



Phase 4 Decision Table (Part 5 of 12) 



Routine:- 



-Phase 4 — ^ ^ ■ ^ • — ^ — -Level : 



4-CConf d)- 



Routine 



Us ag e 



Routines 

called 



-+ 



Calling Conditions 



IPLU3 



Generate integer addition. 



KEY 
SLONE 

SELOP 

SLPOS 

SELSR 

ASAR 

KEMAC 

EDIT 

OPND 

RSLT 

INSOT 



-+- 



To determine status of two operands. 

To optimize storage-register 

operand- situation. 
To optimize storage-storage 

operand- situation. 
To optimize storage-register 

operand-situation. 
To select single general register. 
To assign a general register. 
To get cover for storage reference. 
To set comment item for code file. 
To process operand. 
To protect operand. 
To make code file entry. 



LADDR 



Generate addition with. 
LOAD ADDRESS. 



KEYl 

RSLT 

OPND 

ASAR 

INSOT 

SELSR 

MEMAC 

EDIT 



To determine status of single operand. 

To protect operand. 

To process operand. 

To assign a general register. 

To make code file entry. 

To select single general register. 

To get cover for storage reference. 

To set comment item for code file. 



h 



RPLUS 



Generate real addition. 



KEY 

SELOP 

OPND 

INSOT 

SLPOS 

SELFR 

MEMAC 

RSLT 

ASFR 

EDIT 



To determine status of two operands. 
To optimize storage-storage 

operand- si tuat ion . 
To process operand. 
To make code file entry. 
To optimize register-register 

operand- s itua tion . 
To select single floating register. 
To get cover for storage reference. 
To protect operand. 
To assign a floating register. 
To set comment item for code file. 



-H- 



CPLUS 



Generate complex 
addition or subtraction. 



KEY 

ASFR 

OPND 

INSOT 

SELFR 

MEMAC 

RSLT 

SELOP 

EDIT 
SLPOS 

TEVR4 
TEVR8 
TEVC8 
TEVC16 



To determine status of two operands. 

To assign a floating register. 

To process operand. 

To make code file entry. 

To select single floating register. 

To get cover for storage reference. 

To protect operand. 

To optimize storage-storage 

operand- situation . 
To set comment item for code file. 
To optimize register-register 

opera nd- s i t uat i on . 
To file a REAL*4 constant. 
To file a REAL*8 constant. 
To file a COMPLEX*8 constant. 
To file a COMPLEX*16 constant. 
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Table 24. 



Phase 4 DecisiO'n Table (Part 6 of 12) 



Routine: - 



-Phase 4- — • — ' -" • —' ^ Level : 



4- (Cont'd) — 



Routine 



Usage 



Routines 
Called 



Calling Conditions 



IMPLY 



Generate integer 
multi plicat ion. 



h 



~H" 



KEY 
SLONE 

SLPOS 

SELOP 

SELSR 

EDIT 

INSOT 

OPND 

RSLT 

MEMAC 

AShR 

FLUSH 

SELDR 



To determine status of two operands. 
To optimize storage- register 

operand- situation. 
To optimize register-register 

operand- situation. 
To optimize storage-storage 

operand- situation. 
To select single general register. 
To set comment item for code file. 
To make code file entry. 
To process ope rand - 
To protect operand. 

To get cover for storage reference. 
To assign a general register. 
To reset and/or transfer register table 

entry . 
To select even/odd register pair- 



RMUL 



Generate real 
multiplication . 



h 



KEY 
MEMAC 
OPND 
RSLT 

EDIT 
SLPOS 

SELOP 

SLONE 

INSOT 

SELFR 
ASFR 



To determine status of two operands. 

To get cover for storage reference. 

To process operand. 

To protect operand. 

To set comment item for code file. 

To optimize register- register 

operand- situation . 
To optimize storage-storage 

operand- situation. 
To optimize storage- register 

operand- situation. 
To make code file entry. 
To select single floating register. 
To assign a floating register. 



CMUL 



Generate complex 
multiplication. 



h 



KEY 

SELFR 

ASFR 

MEMAC 

EDIT 

INSOT 

OPND 

RSLT 

SELOP 

SLPOS 

SLONE 



To determine status of two operands. 

To select a floating register. 

To assign a floating register. 

To get cover for storage reference. 

To set comment item for code file. 

To make code file entry. 

To process operand. 

To protect operand. 

To optimize storage- storage 

operand-situation. 
To optimize register-register 

operand-situation. 
To optimize storage- register 

operand-situation. 



IDVDE 



Generate integer division. 



KEY 

SELOP 

MEMAC 

EDIT 

SLONE 

3ELGD 

SELDR 

INSOT 

OPND 

RSLT 



To determine status of two operands. 
To optimize storage-storage 

operand- situation. 
To get cover for storage reference. 

To set comment item for code file. 
To optimize storage-register 
operand- situation . 

To determine whether to divide in place. 
To select even/odd register pair. 
To make code file entry. 
To process operand. 
To protect operand. 
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Table 24. 



Phase 4 Decision Table (Part 7 of 12) 



Routine: 



-Phase 4— ^ — ' ' Level : 



4-CCont 'd) 



r 


._^-_ . — - — ^ .-. 

1 


1 Routines | 






1 Routine! Usage 


1 called ! 




Calling Conditions 


|. 


_^ , , _ 


-+ ^ 







1 IDVDE 


[Generate integer divirion 


. 1 ASAR 1 


To 


assign a general register. 


1 CCont 


d) 


1 FLUSH ! 


To 


reset and/or transfer register table 






1 1 


entry • 






ISELSR f 


To 


select single general register- 


j. 


— I _ , 


_-|. 


.__- 


. , , . 


IRDIV 


[Generate real division. 


|KLY 1 


To 


determine status of two operands. 




1 =., __„j_ 


1 SELFR 


To 


select single floating register. 






1 ASFR 1 


To 


assign a floating register. 






1 MEMAC 


To 


get cover for storage reference. 






1 EDIT i 


To 


set comment item for code file. 






|OPND 


To 


process operand. 






1 RSLT 


To 


protect operand. 






1 INSOT 


To 


make code file entry. 






JCELOF 
1 


To 


optimize storage-storage 
• >era nd- situation. 






1 SLONE 


T.. 


-ptimize storage-register 






1 


Operand-situation. 




1 , , __, 


__j j 








— 1 -— . — 


__-| 






ICDIV 


[Generate complex 


|KEY 


To 


determine status of two operands. 




1 division. 


1 MEMAC 


To 


get cover for storage reference. 






lEDIT 


TO 


set comment item for code file. 






lOPND 


To 


process operand. 






I RSLT 


To 


protect operand. 






1 SELOP 


To 


optimize storage-storage 






1 


operand- situation. 






I S LONE 


To 


optimize storage-register 






1 


operand- situation . 






1 ASFR 


To 


assign a floating register. 






1 SELFR 


To 


select single floating register. 






[INSOT 


To 


make code file entry. 




_^. ^__ 


-| M 







[COMMA 


|Get function argument in 


1 FETCH 


To 


fetch complement and/or store operand. 




1 memory with correct 


1 ME MAC 


To 


get cover for storage reference. 




1 sign- 


JSKLSR 


To 


select single general register. 






1 INSOT 


To 


make code file entry. 






JASAR 


To 


assign a general register. 






1 OPND 


To 


process operand. 






1 SELFR 


To 


select single floating register. 






1 FNDWS 


To 


get next available temporary storage. 






JASFR 


To 


assign a floating register. 






1 TEVI4 


To 


file an INTEGER*4 constant. 






ITEVR4 


To 


file a REAL* 4 constant. 






ITEVR8 


To 


file a REAL*8 constant. 






1 TEVC8 


To 


file a COMPLEXES constant. 






1 TEVC16 


,To 


file a C0MPLEX*16 constant. 


1 




1 






r 




^^ 


^— .— - 




JFUNC 


1 Generate function call. 


ISELSR 


To 


select single general register. 






1 SELFR 


ITo 


select single floating register. 






JASAR 


To 


assign a general register. 






1 INSOT 


[To 


make code file entry. 






1 MEMAC 


To 


get cover for storage reference - 






lOPND 


|To 


process operand. 






(EDIT 


,To 


set comment item for code file. 






1 COVER 


|To 


load specified Adcon into any general 
register. 






1 COMMA 


|To 


get function argument in storage with 
correct sign. 






IRLSWS 


|To 


release temporary storage. 






|ASFR 


|To 


assign a floating register- 






1 TEVFL4 


|To 


file an address constant. 






1 TEVFL5 


|To 


file a parameter list entry. 






1 TEWR 


|To 


file a V/R address constant pair. 
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Table 24. Phase 4 Decision Table (Part 8 of 12) 



Rootine:- 



-Phase U- ' — - — .-^-—^ , . . Level : 



4-CCont 'd)- 



I I Routxnes | 

Routine! Usage | Called | Calling Conditions 

„^^^^™ „ ^ .^^ 4 4 . ^ , , 

RLTNL I Generate relational |KEY | To determine status of two operands- 

I operations, j SLONE | To optimize storage-register 

I I I operand- situation • 

I JSLPOS |To optimize register-register 

I I I operand- situation. 

I JSELOP I To optimize storage-storage 

I I I operand- situation. 

I I SELSR I To select single general register. 

I JMEMAC I To get cover for storage reference. 

I I EDIT I To set comment item for code file. 

1 I INSOT I To make code file entry. 

I I OPND I To process operand. 

I |RSLT I To protect operand. 

I JSADDR I To get local branch cover. 

I JLBL I To generate for branch to label. 

I JASAR I To assign a general register. 

I |ASFR [To assign a floating register. 

I JSELFR I To select single floating register. 

— ^„™^™™„„, ^^»„™. „ 4 ™„4 

ANDOR I Generate logical AND or |KEY |To determine status of two operands. 

I OR. I SELOP I To optimize storage-storage 

I I I operand- situation. 

I jsifONE I To optimize storage-register 

I I I operand- situation. 

I [SLPOS |To optimize register-register 

I I I operand- situation. 

I I SELSR |To select single general register. 

I I MEMAC I To get cover for storage reference. 

I fll^OT I To make code file entry. 

I I EDIT I To set comment item for code file. 

I |ASAR I To assign a general register. 

f I OPND I To process operand. 

I JrslT I To protect operand. 

I I LBL I To generate for branch to label. 

+ + + — 

DOOM I Select open function | OPENl [To generate selected open functions. 

I module. |OPEN2 | To generate selected open functions. 

I |OPEN3 I To generate selected open functions. 

I |OPEN4 I To generate selected open functions. 

I I OPENS I To generate selected open functions. 

I |OPEN6 I To generate selected open functions. 

^ ^^4^^ , , 4 4 ^^„^ ^ ^ 

MAX I Generate for MAX | KEY | To determine status of two operands. 

I operator. | SELOP |To optimize storage- storage 

I I [operand-situation. 

I I SLPOS I To optimize register-register 

j I I opera nd-situation- 

I i SLONE I To optimize storage-register 

I I I opera nd- situation - 

I I MEMAC I To get cover for storage reference. 

I [EDIT I To set comment item for code file. 

I I OPND I To process operand. 

I JrsLT I To protect operand. 

I I INSOT I To make code file entry. 

I I SELSR I To select single general register. 

I I ASAR I To assign a general register. 

I |ASFR I To assign a floating register. 

I I SELFR [To select single floating register. 

I SADDR I To get local branch cover. 



L™, . . . X 



lil8 



Table 24. 



Phase 4 Decision Table (Part 9 of 12) 



Routine: Phase 4- 

j. ^ . 



-Level: 



Routine 



Usage 



Fioutines 
called 



Calling Conditions 



OPENl 



Generate selected open 
functions . 



OP EN 2 



Generate selected open 
functions . 



INSOT 

ASAR 

KEY 

OPND 

SELSR 

SELFR 

ASFR 

MEMAC 

RSLT 

EDIT 

SM}DR 

PH4MER 

OPND 

FLUSH 

KEY 

EDIT 

SELFR 

SELDR 

INSOT 

ASFR 

SELSR 

ASAR 

MEMAC 

RSLT 

PH4MER 



To make code file entry. 

To assign a general register. 

To determine status of two operands. 

To process operand. 

To select single general register. 

To select single floating register. 

To assign a floating register. 

To get cover for storage reference. 

To protect operand. 

To set corament for code file. 

To get local branch cover. 

To make machine/compiler error exit. 

To process operand. 

To reset and/or transfer register table 

entry. 
To determine status of two operands. 
To set comment item for code file. 
To select single floating register. 
To select even/odd register pair. 
To make code file entry. 
To assign a floating register. 
To select single general register. 
To assign a general register. 
To get cover for storage reference. 
To protect operand. 
To make machine/compiler error exit. 



-+ 



OPEN3 



Generate selected open 
functions. 



EDIT 

SELSR 

KEYl 

INSOT 

ASAR 

SELDR 

SELFR 

MEMAC 

ASFR 

OPND 

RSLT 

PH4MER 



h 



To set comment item for code file. 

To select single general register. 

To determine status of single operand. 

To make code file entry. 

To assign a general register. 

To select even/odd register pair. 

To select single floating register. 

To get cover for storage reference. 

To assign a floating register. 

To process operand. 

To protect operand. 

To make machine compiler error exit. 



0PEN4 



Generate selected open 
functions. 



INSOT 

ASAR 

KEYl 

FNDFR 

SADDR 

SELFR 

ASFR 

MEMAC 

RSLT 

OPND 

KEY 

EDIT 

SELSR 

PH4MER 



To make code file entry. 

To assign a general register. 

To determine status of single operand. 

To search floating register table. 

To get local branch cover. 

To select single floating register. 

To assign a floating register. 

To get cover for storage reference. 

To protect operand. 

To process operand. 

To determine status of two operands. 

To set comment item for code file. 

To select single general register. 

To make machine/compiler error exit. 
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Table 2i|. Phase 4 Decision Table (Part 10 of 12) 



Rootine:- 



-Phase 4 — - — -" ~ Level : 



5- (Cont'd) - 



h 



Routine 



Usage 



Routines 
Called 



Calling Conditions 



OPENS 



h 



Generate selected open 
functions . 



ASFR 

KEYl 

OPND 

SELFR 

EDIT 

COVER 

SELSR 

MEMAC 

SEUDR 

INSOT 

ASAR 

RSLT 

PHi+MER 

TEVR4 

TEVRS 



To assign a floating register. 

To determine status of single operand. 

To process operand. 

To select single floating register. 

To set comment item for code file, 

To load specified Adcon into any general 

register. 
To select single general register. 
Get cover for storage reference. 
To select even/odd register pair. 
To make code file entry. 
To assign a general register. 
To protect operand. 

To make machine/compiler error exit. 
To file a REAL*4 constant. 
To file a REAL*8 constant. 



OPEN6 



Generate selected open 
functions. 



OPND 
RSLT 

KEYl 

EDIT 

SELSR 

ASAR 

INSOT 

SELFR 

MEMAC 

SELDR 

ASFR 

PH4MER 



To process operand. 

To protect operand. 

To determine status of single operand. 

To set comment item for code file. 

To select single general register. 

To assign a general register. 

To make code file entry. 

To select single floating register. 

To get cover for storage reference - 

To select even/odd register pair. 

To assign a floating register. 

To make ma chine/ compiler error exit. 



LBL 



Generate for branch to 

label. 



FNDAR 

SELSR 
INSOT 
ASAR 



To search general register table. 
To select single general register. 
To make code file entry. 
To assign a general register. 



SELGD 



h 



Determine whether to 
divide in place. 



None 



SLPOS [Optimize register-register 
operand- situation. 

SLONE [Optimize storage-register 
operand-situation. 



SELGM 



SELGM 



To get multiplicand in proper register. 
To get multiplicand in proper register. 



h 



+~ 



SELOP 



Optimize storage- 
storage operand- 
situation. 



None 



--+ 



FETCH 



Fetch/ complement and/or 
^■. ore operand. 



SELSR 

SELFR 

ASAR 

ASFR 

EDIT 

COVER 

INSOT 
MEMAC 



To select single general register. 

To select single floating register. 
To assign a general register. 
To assign a floating register. 

To set comment item for code file. 

To load specified Adcon into any general 

register. 
To make code file entry. 

To get cover for storage reference. 
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Table 24- Phase 4 Decision Table (Part 11 of 12) 

Routine: Ph^se 4 • — — — ■ -• Level : 6- 



T' 


— J . — 


-T 


»-^ — . -. . . . 




! 


1 Routines | 


1 Routine] Usage 


1 Called 


1 Calling Conditions 


|. 


__^ -„ 


-^ 


^^._^ ^„™ 


1 SELGM 


1 Get multiplicand in 


1 SELSR 


[To select single general register. 




1 proper register. 


t INSOT 


[To make code file entry. 






-+ 


_4_^ ^^>^ 


1 SELDR 


1 Select even/odd register 
1 pair. 


1 SELSR 
1 


|To select single general register. 
1 

-X 




T 




T 


1 SELFR 


1 Select single floating 


IFNDWS 


1 To get next available temporary storage. 




1 register. 


[COVER 

1 


|To load specified Adcon into any general 
1 register. 






1 INSOT 


|To make code file entry. 






ITEVFL4 


|To file an address constant. 




.^^ ^ ^ 


-4 


_+^ „^^ 


1 ASFR 


[Assign a floating register. None 


1 




__+ ™„ 


-+ 


_^«^ ^ 


1 EDIT 


1 Set comment item for 
1 Code file. 


1 None 
1 


1 
1 




_ X 


1 


i — 




T 


t 


t 


|KEY 


1 Determine status of two 


IFNDAR 


|Two search general register table. 




1 operands. 

- J. 


IFNDFR 
4- 


|To search floating register table. 




T 


T 


T 


|KEY1 


1 Determine status of 


[FNDAR 


|To search general register table. 




1 single operand. 


IFNDFR 


|To search floating register table. 


I- 


_-^ ^ 


-+- 


_+_„ 


[MEMAC 


1 Get cover for memory 


t SELSR 


|To select single general register. 




1 references. 


1 INSOT 


|To make code file entry. 






1 COVER 
1 


1 To load specified Adcon into any general 
1 register. 






IFNDAR 


|To search general register table. 






lASAR 


1 To assign a general register. 


1- 


.^+^ 


~+ 


_+ .^ 


IRSLT 


1 Protect operand. 


[COVER 
I 


|To load specified Adcon into any general 
1 register. 






lOPND 


|To process operand. 






1 FNDAR 


1 To search general register table. 






|ASAR 


|To assign a general register. 






1 INSOT 


1 To make code file entry. 






1 FLUSH 

1 


|To reset and/or transfer register table 
I entry . 






IFNDWS 


|To get next available temporary storage. 


I- 


^^ ^ ^ 


-+- . — 


^+ „ 


ISADDR 


[Get local branch cover. 


1 INSOT 


|To make code file entry. 






1 SELSR 


ITo select single general register. 






|ASAR 


|To assign a general register. 



Routine: — — Phase 4- 

r 

lOPND 



-Level : 



h 



Process operand. 



1 RLSWS 



j To release temporary storage. 



I None 



IFNDFR I Search floating register 
I I table. i 

I. + „._„„ + 

I COVER I Load specified Adcon into [SELSR 
I I any general register. | FNDAR 
I I I INSOT 

I I I ASAR 

i- i ^ . -X 



I To select single general register. 
I To search general register table. 
I To make code file entry. 
I To assign a general register. 

_X-. ^-. , ^ 
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Table 24, Phase ^ Decision Table (Part 12 of 12) 
Routine: Phase 4— — ~ 



— Level: 



T T 

Routines 
Called 



h 



Routine 



Usage 



+" 



Calling Conditions 



ASAR 



Assign a general 
register. 



None 



SELSR 



Select single general 
register. ^. ^ 



FLUSH 

FNDWS 
INSOT 
TEVFL4 



To reset and/or transfer register table 
entry • 

To get next available temporary storage. 

To make code file entry. 

To file an address constant. 



„+. 



+- 



RI^WS 



h 



Release temporary 
storage. 



None 



FNDAR 



Search general register 
table. 



None 



Routine:-"--——- — —Phase 4 

J.. _-j , , 

I FNDWS JGet next available 

I I temporary storage. | | 

|. . 1.^^ , ^ „„+„^, +. 

I FLUSH I Reset and/or transfer | None | 
i I register table entry. j | 

I. „„4^^ , . — ^„+ — ^ +. 



-Level : 9- 



-^ , — ^ . .. 

ITEVFL4 I To file an address constant. 



_™„4^^ , . 

INSOT I Make code file entry. 



None 



Routine:' — • — Phase 4- 



-Level : 



Executive Routines 
^ -J 



ITEVFL4 I File an address constant, 
h 



h 



TEVFL5 



File a parameter list 
entry. 



TEV¥R 



File a ¥/R address 

constant pair. 



I 

I 

-+- 

I 



TEVI2 



File an INTEGER* 2 
constant . 



h 



TEVI4 



File an INTEGER* 4 

constant - 



-+ 



I 

-+- 



TEVR4 



File a REAL* 4 constant. 



-H- 



TEVR8 



File a REAL* 8 constant. 



I 



TEVC8 



File a COMPLEX* 8 
constant. 



h 



I 



TEVC16 



File a COMPLEX*16 
constant- 



h 



TEVRDM 



h 



Issue a diagnostic 

message. 



"4~ 
I 
I 



TEVFLL 



Make symbol table entry 
for created label. 



TEVCRL 



Create a label for the 

code file. 
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CEKNX — Phase 4 Master Control (PriASg) 

The main object of PHA34 i s to perform a 
serial scan of program file entries and to 
select the appropriate statement processor 
for each PF entry. See Figure 30. 



ENTRIES: 



PEAS'* is entered at its external 



entry point, CEKNXl, from the phase con- 
troller via standard linkage. It expects 
to receive the base of the compiler's 
intercom as a parameter. There are three 
additional entry points, PmMES, PH4MER, 
and PHtJXER, which are used only by Phase 4 
subroutines upon a detected compiler error 
or suspected machine error. 

EXITS : PHAS4 has four exits to the phase 
controller. 

OPERATION ; Upon entry from the phase con- 
troller, PHASti copies the compiler's inter- 
com into the phase's PSECT- Three nonvola- 
tile registers are established as phase- 
wide common registers and initialized to: 

1. Symbol Table Base CNl) 

2. Expression Tree Base (N2) 

3. Name Table Base CN3) 

The following areas are cleared: 

1. Name Table 

2. Temporary Storage Utilization Matrix 

Program file entries are processed 
sequentially. The ID of each PF entry is 
used to select the statement processor. 
After processing the last PF entry, PHAS^* 
restores the compiler's intercom and 
returns to the phase controller. 

CEKOD — Entry Point Processor (ENT) 

Subroutine ENT is used to generate the 
preamble at an entry point. See Chart DU. 



ENTRIES ; The entry point is CEKODl . 



ENT 



expects a pointer to the PF item (describ- 
ing the entry) in register P2 . 

EXITS : Normal exit only. 

OPERATION ; For all three types of entries 
— entry at the beginning of a main pro- 
gram, main entry of a subprogram, and 
alternate entry of a subprogram — ENT 
generates code necessary to save registers 
and establish PSECT cover as follows: 



STM 


1^,12,12(13) 


L 


1«*,72(0, 13) 


ST 


14,8(0,13) 


ST 


13,4(0,14) 


LR 


13,14 



An address constant which covers local 
temporary storage is then filed in the sym- 
Dol table, and the instruction 



L 12,11(0,13) 

is generated (n is the storage class 4 
assignment of the Adcon just filed) . 

In addition to this "canned" code, which 
is common to all entries, ENT generates 
additional instructions depending upon the 
type of the entry. 

In a main program the "canned" code is 
appended by a call to the Task Initializa- 
tion Subroutine CHCDBl. 

Presence of a parameter list upon an 
entry into a subprogram requires ENT to 
generate the necessary code for object time 
parameter processing. A program file (PF) 
item describing a subprogram main entry 
triggers sorting of the Adcon list in the 
formal argument adcon table (referred to by 
Phase 4 as FAAL and by Phase 3 as FAAT) . 
The sort arranges the entries in the FAAL 
in the order of argument numbers (ANO) . 
( Note : ANO is a local abbreviation only, 
used to define the uses of ANO in asso- 
ciated flowcharts.) Several entries with 
the same ANO are sorted according to the 
values of the adcons (A) , as given in their 
corresponding symbol table entries. 

Each parameter, as indicated by its 
argument number (the argument number equals 
STCL minus 128) in the PF item, is matched 
against the ANOs in the FAAL, and ENT 
generates code to combine adcon values with 
the value of the matching parameter and to 
store the completed parameter address into 
the appropriate location (SLOG), as given 
by the adcon symbol table entry. 

A branch around the preamble is 
generated by ENT for alternate entries not 
preceded by STOP, RETURN, or branches (GO 
TO, IF, etc.). 



CEKNU 



Referenced Label PF Entry 



Processor (LABEL) 

LABEL is called by the PF scanner to 
process a referenced label program file 
entry. See Chart DV. 



ENTRIES : Entry is to CEKNUl, with a point- 
er to a referenced label PF entry in regis- 
ter P2. 



EXITS: Normal exit only. The output of 
LABEL is an updated symbol table entry for 

the label. 
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Figure 30, Phase 4 Master Control 
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OPERATION: 



LABEL stores the 



tents of the locat-ion counter 
storage location field of the 
bol table entry. The symbol 
storage class field is set to 
file). Next, the symbol tabl 
the adcon entry is followed, 
storage class field of the na 
adcon is examined. If it is 
exit is made; otherwise, the 
field is set to 1, and the cu 
of the location counter is st 
value 1 field. All entries i 
floating-point MRM table are 
nonglobally assigned general 
entries are cleared. control 
to the PF scanner. 



current con- 
in the 

label' s sym- 
table entry's 

1 (code 
e pointer to 
and the 

me part of the 
equal to 1 , 
storage class 
rrent contents 
ored in the 
n the 

cleared. All 
register 
then returns 



EXITS : Normal exit only. 

OPERATION : AIF first processes the arith- 
metic 
genera 
expres 
f loati 
f er po 
condit 
statem 
transf 
code i 
where 
requir 
are ge 
dition 
such t 
rently 



expression by invoking AGEN which 
tes any code necessary to form the 
sion in an appropriate general or 
ng register. Next, the three trans- 
ints are checked for fall-through 
ion (i.e., the label on the following 
ent matching one or more of the 
er points ) . No conditional branching 
s generated for a transfer point 
fall-through exists. Finally, the 
ed conditional branch instructions 
nerated. Whenever possible, the con- 
al branch instructions are ordered 
hat transfer to points which are cur- 
covered are executed first. 



CEKMJ 



Equation PF Entry Processor 



CEQUAT) 

EQUAT is called by the PF scanner to 
process an equation program file entry. 
See chart DW. 

ENTRIES ; Entry is to CEKMJl, with a point- 
er to an equation PF entry in register P2. 

EXITS: Normal exit only. 

OPERATIO N: EQUAT first processes the right 
side of the equation by calling on AGEN and 
the appropriate lower level subroutines - 
Code is generated to produce the result, 
and to load it in a general or floating 
register. At this point all register table 
entries for variables and/or subscripted 
variables, except the right side entry for 
the current equation, are cleared to pre- 
vent potentially conflicting register usage 
arising through the use of EQUIVALENCE 
statements or other possible indirect vari- 
able definitions. AGEN is then called 
again to produce code, if necessary, for 
the left side of the equation. Next, the 
appropriate store instruction is generated 
to store the right side into the resultant 
address specified. OPND is called once for 
each side, to check for any final usages of 
common expressions- If the right side is a 
final usage of a CSX or a noncommon expres- 
sion, the register containing it is 
assigned to the left side result. Other- 
wise, a synonym entry is made for the left 
side appropriate to its type. Control is 
then returned to the PF scanner. 

CEKNK — Arithmetic IF PF Entry Processor 
(AIF) 



AIF is called by the PF scanner to pro- 
cess an arithmetic IF program file entry. 
See Chart DX. 

ENTRIES : Entry is to CEKNKl, with a point- 
er to an arithmetic IF PF entry in register 
P2. 



CEKNL — • Logical IF PF Entry Processor 
(LIF) 

LIF is called by the PF scanner to pro- 
cess a logical IF program file entry. See 

Chart DY. 



ENTRIES: 



Entry is to CEKNLl, with a point- 



er to a logical IF PF entry in register P2. 

EXITS: Normal exit only. 

OPERATION ; LIF first determines the nature 
of the logical operand by means of a call 
on AGEN, witn the logical IF flag set. If 
the logical operand is a noncommon or com- 
mon subexpression just computed, AGEN 
generates the appropriate code for loading 
and testing the logical operand and for 
branching around the logical IF object 
statement, if necessary. If, however, the 
logical operand is a variable, constant, 
residue, or common expression computed pre- 
viously, LIF generates the required code. 



CEKNT — GO TO PF Entry Processor (GOTO) 

GOTO is called by the PF scanner to pro- 
cess to GO TO program file entry. 



Entry is to CEKNTl , with a point - 



ENTRIES : 

er to a GO TO PF entry in register P2 . 

EXITS : Normal exit only. 



OPERATION ; GOTO supplies the required 

operation code and label symbol table 
pointer for LBL, which then generates the 
loading of any necessary adcons and the 
branching code. 



CEKNS — Assign PF Entry Processor CASSGN) 

ASSGN is called by the PF scanner to 
process an ASSIGN statement program file 

entry. See Chart DZ . 
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^ENTRIES ; Entry is to CEKNSl, with a point- 
er to an ASSIGN PF entry in parameter 
register P2 . 

EXITS : Normal exit only. 

OPERATION ; ASSGN first creates an adcon to 
cover the label being referenced. Next, a 
load of the adcon is generated. Cover is 

obtained for the assigned variable, and a 
store instruction is generated to place the 
adcon in the assigned variable's location, 

CEKNQ ~- Assigned GO TO PF Entry Processor 
(AGO) 

AGO is called by the PF scanner to pro- 
cess an assigned GO TO program file entry. 
See Chart EA. 

ENTRIES ; Entry is to CEKNQl, with a point- 
er to an assigned GO TO PF entry in parame- 
ter register P2 . 

EXITS : Normal exit only. 

OPERATION ; AGO selects a register for 
loading of the assigned variable. Cover is 
obtained for the assigned variable- Code 
is generated to load the assigned variable 
into the selected register and to branch 
unconditionally on the address contained 
therein. The register table entry for the 
assigned variable is cleared, and control 
is returned to the PF scanner - 

CEKNR — Computed GO TO PF Entry Processor 
CCGO) 

CGO is called by the PF scanner to pro- 
cess a computed GO TO program file entry. 
See Chart EB. 

ENTRIES ; Entry is to CEKNRl, with a point- 
er to a computed GO TO PF entry in parame- 
ter register P2 . 

EXITS ; Normal exit only. 

OPERATION ; CGO first generates an adcon to 
cover the transfer list. The adcon' s posi- 
tion in the adcon page is saved for future 

use in CGO. A label, which will be placed 

as the first element in the transfer list, 
is generated. The transfer produced is to 
the next statement following the computed 
GO TO. The label is accessed at object 
time when the computed GO TO index is found 
to be out of range. After the label has 
been generated, an adcon is filed to cover 
each element in the transfer list, includ- 
ing the generated label element. Next, 
code is generated to load the computed GO 
TO index variable in a register, if neces- 
sary, and test for the out-of- range condi- 
tion. A register is then selected for the 
transfer list pointer, and code is 
generated to accomplish the appropriate 



transfer. Prior to exit, the register 
table entries made in CGO are cleared, and 
the current contents of the location count- 
er and a storage class of 1 (code) are set 
in the generated label symbol table entry. 

CEKOL — CALL Statement Processor (CA LL) 

The objective of subroutine CALL is to 

generate O'bject code for a CALL statement. 
See Chart EC. 

ENTRIES ; The entry point is CEKOLl. CALL 
expects a pointer to the program file entry 
in parameter register P2. 

EXITS ; Normal exit only. 



OPERATION: 



For a CALL statement with a pa- 



rameter list, the object code is generated 
in subroutine FUNC (via AGEN) . Calls to 
subroutines without parameters are pro- 
cessed by subroutine CALL. 

In any case, subroutine CALL generates 
the code to process optional returns 
(RETURN i), if applicable. 



CEKOE 



RETURN Processor (RTRN) 



The objective of subroutine RTRN is to 
generate the code for a RETURN statement. 

See Chart ED. 

ENTRIES ; The entry point is DEKOEl. RTRN 
expects a pointer to the appropriate pro- 
gram file entry in parameter register P2. 

EXITS ; Normal exit only. 

OPERATION ; Subroutine RTRN generates code 
to reestablish the caller's PSECT cover, 
reload general registers, set the low-order 
bit in the caller's forward link to 1, and 
set general register 15 with a return code. 
Either of two different instruction 
sequences is constructed, depending upon 
the return code being a constant (including 
no return code) or a variable. 

CEKNM — Begin Loop 1 PF Entry Processor 
(BLl) 



BLl is called by the PF scanner to pro- 
cess a begin loop 1 program file entry. 
See Chart EE. 

ENTRIES ; Entry is to CEKNMl,with a pointer 
to a begin loop 1 PF entry in parameter 
register P2 . 

EXITS: Normal exit only. 

OPERATION ; BLl scans the global reserva- 
tion list, which is part of the BLl PF 
entry, looking for CSX entries. For each 
CSX entry found, the global assignment bit 

in the CSX's corresponding name table entry 
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is set. If the loop is unsafe, the global 
temporary flag is set. ihe list of removed 
expressions is then proce^ssed, by calling 
AGEN to generate code for each removed 

expression in the list. When all list 
entries have been so processed, control is 
returned to the PF scanner. 



CEKNN 



Begin Loop 2 PF Entry Processor 



CBL2) 

BL2 is called by^^the PF scanner to pro- 
cess a begin loop 2 program file entry. 
See Chart EF. 



CEKNQ ■ — Begin Loop 3 PF Entry Processor 
(BL3) 



BL3 is called by the PF scanner to pro- 
cess a begin loop 3 program file entry. 

See Chart EG. 

ENTRIES : Entry is to CEKNOl, with a point- 
er to a begin loop 3 PF entry in parameter 

register P2. 

EXITS : Normal exit is at the termination 
of begin loop 3 PF entry processing. Exit 
is via PH4MES in case of loop table 

overflow. 



ENTRIES ; Entry is to CEKNNl, with a point- 
er to a begin loop 2 PF entry in parameter 
register P2. 



EXITS ; Normal exit is at the termination 
of begin loop 2 PF entry processing. Exit 
is via PH4MES in case of loop table 
overflow. 



OPERATION; The BL2 processor generates 
code for computing all recursive subscript 
expressions. Processing is divided into 
two main sections. The first involves the 
generation of code to produce the initial 
value and increment expressions for each 
recursive expression- The second section 
produces the test value code. 



Initial value processing is performed to 
ensure that code is generated to produce 
the initial value and load it either into a 
global register, if required, or into tem- 
porary storage. Increment processing per- 
forms the same functions for the increment, 
and, in addition, makes the appropriate 
entry in the loop table - 

After the initial value and increment 
are processed for each recursive expres- 
sion, the materialization flag is tested. 
If materialization is required, code is 
generated to load the beginning value of 
the induction variable in storage. The 
induction variable, increment, and end 
values are stored in the loop table. If 
materialization is not required, code is 
generated to produce the test value and 
store it or globally assign it, as 
required. 

The final processing in BL2 rescans the 
global reservation list. All adcons and 
CSX's listed are globally assigned and 
loaded into registers, and all remaining 
active expressions in the general and 
floating registers are assigned temporary 
storage. Control then returns to the PF 
scanner - 



OPERATION ; BL3 is responsible for process- 
ing all induction- variable-dependent common 
expressions which can be removed to just 
inside the loop top. Initially the temp 
bit matrix is searched locating the lowest 
available temp byte. BL3 then enters the 
loop top label's symbol table pointer in 
the loop table, then updates relevant 
fields within the symbol table entry for 
the loop top label- Next, the chain of 
induction- variable-dependent expressions is 
processed. Code is generated to produce 
each expression in the chain. After all 
expressions in the chain have been pro- 
cessed, control returns to the PF scanner- 

CEKNP — End Loop PF Entry Processor 
(ENDLP) 

ENDLP is called by the PF scanner to 

process an end loop program file entry. 
See Chart EH. 

iNTRIES ; Entry is to CEKNPl , with a point- 



er to an end loop PF entry in parameter 

register P2. 

EXITS ; Normal exit is at the termination 
of end loop PF entry processing. Error 
exit is via PH4MER in the event that a 
globally assigned quantity is found not to 
be in a register. 

OPERATION ; The end loop PF entry processor 
commences by scanning the recursive entries 
in the loop table. For each entry code is 
generated to load the recursive expression 
in a register, if necessary, and increment 
it. After all recursive entries have been 
processed, the materialization flag in the 
loop table is tested. If materialization 
is not required, code is generated to com- 
pare the last recursive expression pro- 
cessed against the test value and to trans- 
fer control appropriately. If materializa- 
tion is required, code is generated to load 
the induction variable (if necessary) , 
increment it, store the new value back in 
the induction variable's storage cell, com- 
pare the new value of the induction vari- 
able against the test value, and transfer 
control appropriately - 
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Next, the global assignment list in the 
loop table for this level is examined. For 
each CSX entry the glo,bal assignment bit in 
the CSX's name table entry is cleared. The 
global assignment bit in the register table 
entry for the CSX is cleared. For each 
adcon entry, the global assignment bit in 
the register table ent,ry for the adcon is 
cleared. Upon completion of this task, the 
location of the highest assigned temp, 
saved at exit from BL2, is restored; and, 
control is returned to the PF scanner. 



CEKQH — I/O Statement PF Entry Processor 

(RD) 

The I/O statement PF entry processor is 
called by the PF scanner i«dienever READ, 
WRITE, PRINT, PUNCH, or file control PF 

entries are encountered. See Chart EI. 

QITRIES : Entry is to CEKOHl, with a pointer 
to the pf entry in parameter register P2. 



EXITS ; Normal exit only. 



OPERATION J 



The I/O statement PF entry pro- 



cessor is responsible for the generation of 
a standard linkage to the I/O initializa- 
tion routine. Prior to generation, a pa- 
rameter list (see Figure 31) is constructed 
to provide the information required by the 
initialization routine at object time. 
After the standard linkage code is gener- 
ated, all floating register table entries 
for registers 1, 14, and 15 are cleared. 
Control then returns to the PF scanner. 



CEKQI — - I/O List Element PF Entry 

Processor CQI,IST) 

OLIST is called by the PF scanner to 
process an I/O list program file entry. 
See Chart EJ. 

ENTRIES ; Entry is to CEKOIl, with a point- 
er to an I/O list element PF entry in pa- 
rameter register P2, 

EXITS ; Normal exit only. 

OPERATION : OLIST is responsible for the 
generation of a standard linkage to the 
list item processor. Prior to generation, 
a parameter list is constructed to provide 
the information required by the list item 
processor at object time. In addition, if 
required, code is generated to compute the 
effective address of the list item at 
object time. Upon completion of all 
required generation, all floating register 
table entries and general register table 
entries for registers 1, 14, and 15 are 
cleared. Control then returns to the PF 
scanner. 



Word 

^ . ^ , ^ 

1 I Address of Data Set Reference Number 
I or 



h 



2 [Address of First Control Byte* 



H 



h 



3 [Address of Second Control Byte* 



h 



4 [Address of FORMAT or NAMELIST 
I Statement 



h 



5 [Address of Error Exit 

|.„ . 

6 [Address of End-of-File Exit 

i , ^ , ^ ^ 

♦See Figure 32 for format of control 
bytes. 

Parameter 1 is zero for PRINT and 
PUNCH. 

Parameters 3, 4, 5, and 6 are not 
supplied for REWIND, BACKSPACE, and 
END FILE. 

Any or all of parameters 4 , 5 , and 6 

may be missing for a given I/O 
statement. 



Figure 31. I/O Initialization Parameter 
List 
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filed 
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Figure 32. I/O Initialization Control 
Bytes 



CEKQJ — End List PF Entry Processor 
CNDLST) 

NDLST is called by the PF scanner to 
process an end list program file entry. 
NDLST also may be invoked at a second entry 
point — LINK — to generate a standard 
CALL linkage. See Chart EK. 
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ENTRIES: This routine has two entry 
points: NDLIST (CEKOJl) and LINK (CEK0J2>. 
Entry to NDLST CCEKOJl) is made with a 
pointer to an end list PF entry in parame- 
ter register P2. NDLST calls LINK. 

Alternate entry, LINK {CEK0J2) , is 

entered i«#ith a symbol table pointer to the 
subprogram name in register PI. 

EXITS : Normal exit only. 



OPERATION : NDLST generates a standard 
linkage to the I/O library List Termination 
routine (CHCIU). 

LINK resets the register tables for all 
floating-point registers and general regis- 
ters 1, 14g and 15 and then proceeds to 
generate the code for a standard linkage- 



CEKOK — STOP and PAUSE Statement PF Entry 
Processor (STOP) 

STOP is called by the PF scanner to pro- 
cess either a STOP or PAUSE program file 
entry. See Chart EL. 

ENTRIES ; Entry is to CEKOKl, with a point- 
er to either a STOP or PAUSE PF entry in 
parameter register P2. 

EXITS ; Normal exit only. 

OPERATION ; STOP is responsible for the 
generation of a standard linkage to either 
the STOP or PAUSE library subroutines. No 
distinction is made between the two cases 
within STOP, since the necessary distin- 
guishing information is obtained from the 
same relative PF entry location in either 
case. Prior to code generation, STOP con- 
structs a 1-entry parameter list with a 
pointer to the STOP or PAUSE message. Upon 
completion of code generation, all floating 
register table entries and general register 
table entries for registers 1, 14, and 15 
are cleared. Control then returns to the 
PF scanner. 



OPERATION ; AGEN is invoked to generate 
arithmetic expressions. AGEN uses subrou- 
tine TRBLD to build the expression tree 
from program file entries. No more pro- 
cessing is required for a trivial tree 
where the major operator is either primi- 
tive or an already computed common expres- 
sion. If the tree is more complex, AGEN 
invokes subroutine WGHT to assign relative 
y\reights to the nodes of the tree. These 
weights determine the sequence in which the 
tree is resolved by AGEN. Before resolving 
the tree, AGEN uses subroutine CSX to count 
the number of occurrences of common expres- 
sions in the expression and to record these 
counts in corresponding name table entries. 

To resolve the tree, AGEN inspects the 
operands at each node, starting with the 
major operator. If one of the operands is 
not resolved, the pointer to it is 
installed as the current node pointer. 
Then its operands are examined. If both 
operands at a node are unresolved, the 
operand with the larger weight is inspected 
next. Generation occurs when a node is 
reached where both operands are resolved 
(primitive or already computed). AGEN 
selects and invokes the appropriate genera- 
tor subroutine, based upon the operator in 
the tree entry. The generator used for 
plus, multiply, and divide operators 
depends on the type (integer, real, com- 
plex) of operands. After generation, AGEN 
marks the node and, in the case of a common 
expression, the corresponding name table 
ent r y " comput ed . " 

If the result represents a globally 
assigned common expression of integer type 
and if it is left in a general register 
other than 1, 14, or 15, AGEN sets the 
global assignment flag of the corresponding 
register entry in the register table. 

If the backlink is present, it is 
installed as the current node pointer and 
the procedure is repeated by inspecting the 
operands of the node. 

AGEN exits after the major operator has 
been processed and marked "computed. •" 



CEKNW — Arithmetic Expression Generator 
(AGEN) 

AGEN is used to construct expression 
trees and to resolve the trees by selecting 
the appropriate generators. See Chart EM. 

ENTRIES ; The entry point is CEKNWl. The 
input parameter, in register P2, is a 
pointer to the major operator of the Polish 
String in the program file. 

EXITS : Normal exit only. The out parame- 
ter, in register P2, is a pointer to the 
major operator of the expression tree. 



CEKML — Expression Tree Builder (TRBLD) 

TRBLD is entered by the arithmetic 
expression generator to convert an expres- 
sion in the PF into tree-form representa- 
tion in the expression tree. The occur- 
rence of a common expression entry whose 
last use indicator is set will cause set- 
ting of the corresponding bit in the corre- 
sponding name table entry > (See Chart EN. ) 

In addition, when the operators -•-, ♦ and 
/ conabine operands of certain mixed types. 
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open conversion fonctions are introdoced to 
eliminate operand type-discrepancy. 

For example: 

A + B 




A DBLE 

where A is REAL*^ and B is REAL* 8, 



When an operator or common expression 
entry is encountered, an entry is made in 
the next available tree location. At this 
point, the top two entries in the STACK 
point to the tree entries for the left and 
right operands of the operator just 
entered. (See Tables 25 and 26). The two 
pointers are inserted into the LOP and ROP 
fields of the operator entry- In addition, 
a backlink to the operator is placed in the 
BLINK field Cs) of whichever of the operands 
is non-primitive. Now the STACK is "popped 
up" two levels, and the pointer to the cur- 
rent tree entry is "pushed down." 



Table 25. Operand Conversion Function 

Decision Table 



Right Operand Types 



ENTRIES ; The entry point is CELMLl. TRBLD 
expects a pointer to the major operator of 

the expression in the PF in parameter 
register P2. 



EXITS : Normal exit only- Output consists 
of the expression tree, the accompanying 
name table entries, and a pointer to the 
major operator of the expression in parame- 
ter register P2. 



OPERATION: 



The PF is scanned from the 



major operator until the left-most element 
of the expression has been located. This 
is accomplished by initializing a counter 
to zero, and by adding 1 for each operator 
encountered and subtracting 1 for each pri- 
mitive encountered until the count becomes 
negative. The primitive last encountered, 
then, is the left-most element of the 
expression. 



Once the left-most element has been 
found, the tree is built during a left- to- 
right scan of the PF. The push-down table 
STACK is used during this process. Whenev- 
er a constant or variable is encountered, 
the PF entry is converted to expression 
tree form and placed in the next available 
location in the tree. In addition, a 
pointer to the tree entry position is made 
at the top of the stack (see Figure 33) • 



16 



I Unassigned 

I 



~T~T- 

I I 
|F| 



31 



Tree Pointer 



PF -- Primitive 

Figure 33. Stack Table Entry 



"^x ROP 
LOP \ 


L*l 


L*4 


1*2 


1*4 


R*4 


R*8 


C*8 


I 
CM6 


L"] 





L*4 


1 


1 


1 


1 


1 


] 


L*4 


L*l 

L*4 





1 


1 


1 


1 


1 


1 


m 


1 


1 





1*2 
1*4 


1*2 

R*4 


1*2 
R*8 


1*2 

R*4 


1-2 
R*8 


\*4 


1 


1 


1*2 

1*4 





1*4 

R*4 


1*4 

R*8 


i*4 

■»- 

R*4 


1*4 


R*8 


RM 


1 


1 


1*2 


1*4 

R*4 





R*4 
R*8 





R*4 
R*8 


R*4 


R^8 


1 


1 


1*2 

R*8 


1*4 
R*8 


R*4 
R*8 





C-8 
C*16 





C^8 


1 


1 


1*2 
R*4 


1*4 

R*4 





C*8 




C*8 


C*16 


C*16 


CM6 


1 


1 


1*2 
R*8 


1*4 
R*8 


R*4 
R*8 





C*8 
C*16 






The decision table contains 6i* two-byte 

entries. 

- No conversion necessary (98) 

1 - Illegal combination of operands (99) 
All Others - Function number of the corres- 
ponding conversion function 
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Table 26. Complex Division Left Operand 
Conversion Function Decision 
Table 

Rlgh^ Operand Types 
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This decision table contains 8 two-digit 
function numbers. 



the major Op^i 
been processed 



CEKNE — Weight Subroutine (WGHT) 

WGHT is used by the arithmetic expres- 
sion generator to assign to each nonprimi- 
tive node of the expression tree a weight 
(or priority) which will determine order of 
generation. The weight is such that, in 
deciding at a given node which branch to 
generate first (if neither branch has been 
generated), the branch which has the larger 
weight will be chosen. See Chart EO. 

ENTRIES ; The entry point is CEKNEl. WGHT 
is invoked by AGEN and expects to receive, 
in parameter register P2, the expression 
tree pointer to tht major operator. 

EXITS: Normal exit only. 

OPERATION ; The following considerations 
enter into the assignment of weights: 

1. In order to minimize the number of 
active partial results, branches are 
given weights according to their 
complexity. 

2. In order to minimize register storing 
necessitated by function calls, 
branches containing such calls are 
given maximum weight. 



3. In order to attempt to prevent the 
storage of a numerator owing to the 
complexity of the denominator, since 
the numerator must always exist in a 
register, the denominator, or right 
operand, of a division operator is 
given an arbitrary boost in priority. 

When WGHT is entered, the tree pointer 
is set at the major operator of the expres- 
sion. First, the left operand is 
inspected. If it is primitive, a computed 
common expression, or already weighted, the 
right operand is inspected. If it, too, is 
one of the above, the operator at the cur- 
rent node is weighted, as described below. 
If the left operand is none of the above, 
the tree pointer is set at the left operand 
entry, and the above process is repeated. 
If the left operand is one of the above, 
but the right operand is not, the tree 
pointer is set at the right operand, and 
the above process is repeated. 

When, finally, both operands are com- 
puted, weighted, or primitive, a weight is 
assigned to the current node of the tree as 
follow: 

1. If both operands are primitive or com- 
puted common expressions, the weight 
is set to zero. 



The tree building is terminated after 2. 
' ma-j^-r- operator of the expression has 
ised. 



If neither operand is a primitive or a 
computed common expression, then eith- 
er WMAX or 1 plus the maximum of the 
operand weights is chosen, whichever 
is less. (Note: In the description 
of the Expression Tree (Appendix A) 
the WMAX field is identified as 
WEIGHT . ) 

If only one operand is neither a pri- 
mitive nor a computed common expres- 
sion, the weight of that operand is 
chos en . 



When this tentative weight has been 
established, the type of operator at the 
current node is determined. If it is a 
function, the weight is set to WMAX. If 
not, the backlink (BLINK) is followed, to 
determine whether the current node is the 
right operand of a division. If it is, the 
weight is increased by 5 to a maximum of 
WMAX. If not and if it is the right 
operand of a colon, the weight is set to 
zero- 

When the weight computation is complete, 
the current node is marked "weighted" and 
the weight is stored in the tree field 
reserved for this purpose. Then the back- 
link is tested. If it is empty, the major 
operator has been weighted, and the genera- 
tion may proceed. If not, the backlink is 
installed as the tree pointer, and the 
entire process is repeated. 
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CEKQB — Common Expression Usage Count 
CCSX) 



CSX is used by the axithmetic expression 
generator (AGEN) to count the number of 
times each common expression occurs as an 
operand in a given expression tree- In 
addition subroutine CSX pushes down signs 
in the expression tree to the lowest prac- 
tical level. See Chart EP. 

ENTRIES : The entry =paint is CEKOBl. CSX 
is invoked by AGEN and expects to receive, 
in parameter register P2, the expression 
tree pointer to the major operator. 



EXITE 



Normal exit only- 



OPERATION : CSX starts at the tree base and 
examines the operands at each node. The 
left operand is always inspected first. A 
node is marked "examined," if both operands 

are either primitive (variables, constants) 

or "examined" nodes. In addition, if the 
node represents a CSX, the usage count 
field in the appropriate name table entry 
is incr^sed by 1. In all other condi- 
tions, the link to the current operand is 
installed as the node pointer, and the pro- 
cess just described is repeated. If a node 
represents a computed CSX, or residue, or 
if the name table entry of an uncomputed 
CSX shows a nonzero usage count, no further 
inspection of the operands of such node is 
performed, but the node is immediately 
marked "examined" and the usage count is 
updated. After a node has been examined 
and so marked, the backlink, if present, 
replaced the current node pointer. The 
whole process is terminated when the major 
operator of the tree has been examined. 

CEKMC — Real Plus Generator (RPLUS) 

RPLOS is entered by the expression 
generator to generate the addition or sub- 
traction of two operands of type REAL* 4 or 
REAL+8, See Chart EQ. 



ENTRIES: 



The entry point is CEKMC 1 . The 



input, in parameter register P2, is a 
pointer to the current node of the expres- 
sion tree. 

EXITS ; Normal exit only. 

OPERATION ; The subroutine KEY is entered 
to determine the location of both operands 
(in storage or registers) . If both 
operands are in storage, SEI£)P is entered 
to select the better operand to load. 
SELFR is entered to select a floating-point 
register. MEMAC is entered to assign B, X, 
and D fields and to load cover and/or index 
quantities as necessary. OPND is entered 
to release temporary storage for the 
operands when appropriate. An instruction 
is generated to load the selected operand 



into the selected register. MEMAC is 
entered to obtain cover for the nonselected 
operand. If tne operands agree or disagree 
in sign, an add or subtract instruction, 
respectively, is generated. Finally a reg- 
ister memory entry is made for the current 
node of the expression tree. 

If only one operand is in a register, 
that operand is designated as the selected 
operand- RSLT is entered to store that 
operand if necessary, and processing con- 
tinues as above from the point at which 
MEMAC is entered for the nonselected 
operand- 

If both operands are in registers, SLPOS 
is entered to select an operand register 
not requiring storage if altered- After 
the selection has been made, OPND is 
entered, and RSLT is entered to store the 
selected register if required. An RR add 
or subtract instruction is now generated, 
and ASFR is entered to make a register 
memory entry for the current node of the 
expression tree. 



CEKMB 



Real Multiply Generator (RMUL) 



RMUL is entered by the expression 
generator to^ generate the product of two 
operands of type REAL*4 or REAL*8. See 

Chart ER. 



ENTRIES : The entry point is CEKMBl. The 
input is a pointer to the current node of 

the expression tree, passed in parameter 

regsiter P2- 

EXITS: Normal exit only. 

OPERATION ; The subroutine KEY is entered 
to determine the location of both operands 
(in storage or registers). If both 
operands are in memory, SELFR is entered to 

select a floating-point register. MEMAC is 
entered to assign B, X, and D fields and to 
load cover and/ or index quantities as 
necessary. OPND is entered to release tem- 
porary storage when appropriate. An 
instruction is generated to load the 
selected operand into the selected regis- 
ter. MEMAC is entered again to obtain 
cover for the nonselected operand. A mul- 
tiply instruction is generated, and final- 
ly, ASFR is entered to make a register 
storage entry for the current node of the 
tree. 

If only one operand is in a register, 
that operand is designated the selected 
operand. RSLT is entered to ensure storage 
of the operand if necessary, and processing 
continues as above from the point at which 
^iEMAC is entered for the nonselected 
operand. 
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If both operands are in registers, S,LPOS 
is entered to select a register not requir- 
ing storage if altered. OPND is entered to 
release storage and register memory for the 
nonselected operand, and RSLT is entered to 
ensure preservation of tne selected 
operand. An RR multiply instruction is 
generated, and finally ASFR is entered to 
make a register storage ent,ry for the cur- 
rent node of the tree. 

CEKMA — Real Divide Generator (RDIV) 

RDIV is entered by the expression 
generator to generate the quotient of two 
operands of type REAL*4 or REAL* 8 . See 
Chart ES. 



ENTRIES: 



The entry point is CSKMAl. The 



input is a pointer to the current node of 
the expression tree, passed in parameter 
register P2 . 

EXITS ; Normal exit only. 

OPERATION: The subroutine KEY is entered 
to determine the location of both operands 
(in storage or registers). If botn 

operands are in storage, SELFR is entered 
to select a floating-point register. MEMAC 
is entered to assign B, X, and D fields, 
and to load cover and/or index quantities 
as necessary. OPND is entered to release 
temporary storage when appropriate. An 
instruction is generated to load the divi- 
dend into the selected register. MEMAC is 
entered again to obtain cover for the divi- 
sor. A divide instruction is generated, 
and finally ASFR is entered to make a reg- 
ister storage entry for the current node of 
the tree. 

If the dividend is in a register and the 
divisor is in storage, RSLT is entered to 
ensure storage of the dividend if neces- 
sary, and processing continues as above 
from the point at which MEMAC is entered to 
obtain cover for the divisor. 

If the divisor is in a register and the 
dividend is in storage, SELSR is entered to 
select a register other than the one con- 
taining the divisor. MEMAC is entered to 
assign B, X, and D fields and to load cover 
and/or index quantities as necessary. A 
load is generated to place the dividend 
into the selected register. OPND is 
entered to release temporary storage and 
register assigned to the divisor as appro- 
priate- An RR divide instruction is 
generated, and ASFR is entered to assign 
the selected register to the current node 
of the expression tree. 

If both operands are in registers, the 
register containing the dividend is desig- 
nated as the selected register. OPND is 

entered to release the temporary storage 



and register assigned to the divisor when 
appropriate- RSLT is entered to store the 
dividend if necessary. Processing con- 
tinues as above from the point at which the 
RR divide instruction is generated. 



CEKMF 



Integer Plus Generator CIPLUS) 



IPLUS generates the sum of two integer 

quantities of length two or four. See 
Chart ET. 

ENTRIES ; The entry point is CEKMFl. The 
expression tree address of the plus opera- 
tor is expected in parameter register P2. 

EXITS : Normal exit only. 

OPERATION: The code generated depends upon 
whether the operands are in registers or in 
storage. Three cases are treated: 

1. If neither operand is in a register, a 
register is selected and SELOP is 
entered. SELOP determines which 
operand should be loaded (become the 
augend or minuend) ; whether the load 
should be performed with an L (load) 
or LA or (load address) command; 
whether an addition or a subtraction 
is required; and what sign should be 
associated with the result. 

2. If only one operand is in a register, 
SLONE is entered. SLONE determines 
whether an addition or subtraction is 
required; whether the operation may be 
performed in the register containing 
the operand; and what sign should be 
associated with the result. If the 
operation may not be performed in the 
register containing the operand, SLONE 
indicates whether that operand should 
be moved to another register before 
generation of an R-X addition or sub- 
traction, or whether the operand in 
memory should be loaded into a regis- 
ter before generation of an R-R addi- 
tion or subtraction. If loading of 
the operand from storage is indicated, 
SLONE specifies whether the load 
should be performed with a load or a 
load address instruction. 

3. If both operands are in registers, 
SLPOS is entered. SLPOS determines 
whether an addition or subtraction 
must be performed; in which, if eith- 
er, of the operand registers the 
operation is to be performed; and what 
sign should be associated with the 
result. If the operations may be per- 
formed in neither of the operand reg- 
isters, SLPOS indicates which operand 
should be moved, and whether the move 
should be performed with a load regis- 
ter or a LCR (load complement) 
instruction. 
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IPLUS simply performs the generation 
indicated by the output from SELOP, SLONE, 
or SUPOS and assigns the operation result 

to the selected register. 

CEKME — Integer Multiply Generator CIMPLY) 

IMPLY generates the product of two 

integer quantities of length two or four. 
See Chart EU, 

ENTRIES : The entry point is CEKMEl. The 
expression tree address of the multiplica- 
tion operator is expected in parameter reg- 
ister P2. 

EXITS: Normal exit only. 

OPERATION : The code generated depends upon 
whether the operands are in registers or in 

storage. Three cases are treated: 

1. If neither operand is in a register, 
SELOP is entered. SLOP determines 
which operand should be loaded? com- 
plements a constant operand and files 
the new value in the symbol table if 
such a procedure will result in a pro- 
duct with the desired sign? indicates 
whether the operand may be loaded by 
means of a load address instruction; 
and, indicates whether an operand is a 
constant power of 2 so that the other 
operand may be loaded and shifted 
appropriately. 

2« If one operand is in a register, SLONE 
is entered. SLONE complements the 
storage operand and files the new 
value in the symbol table if the 
operand is a constant and if such a 
procedure will result in a product 
with the desired sign; specifies the 
result sign; indicates whether the 
storage operand is a constant power of 
2 so that the register operand may 
simply be shifted by an appropriate 
amount; and, specifies whether the 
operation may take place in the regis- 
ter or register pair containing the 
multiplicand or whether that operand 
must be moved to another register or 
register pair before the multiplica- 
tion, and whether the move must be 
done with a load register or a load 
complement instruction. 

3, If both operands are in registers, 

SLPOS is entered. SLPOS selects the 
operand to be used as the multiplicand 
Cto" register); specifies the result 
sign; indicates that one operand is a 
constant power of 2 so that the pro- 
duct may be computed by shifting the 
other operand; and indicates that the 
multiplicand must be moved to another 
register before the multiplication is 
generated, specifying whether the move 



should be done with a load register or 
a load complement instruction. 

IMPLY simply generates the multiplica- 
tion as specified by SELOP, SLONE, or SLPOS 
and assigns the result to the selected 

register. 



CEKMD — Integer Divide Generator CIDVDE) 

IDVDE is used to generate integer divi- 
sions of 2- and 4-byte quantities. See 
Chart EV. 

ENTRIES : The entry point is CEKMDl. IDVDE 
expects the expression tree address of the 
division operator in parameter register P2. 

EXITS : Normal exit only. 

OPERATION : The instructions generated 
depend upon whether neither, one, or both 
operands are in registers: 

i. If neither operand is in a register, 
SELOP is entered. SELOP files the 
complement of a constant operand in 
the symbol table if this procedure 
will produce the desired result sign; 
returns the result sign; and, deter- 
mines whether the dividend may be 
loaded by means of a load address 
instruction. 

2. If one operand is in a register, SLONE 
is entered. SLONE determines the 
result sign; files the complement of 
an operand in the symbol table if the 
operand is a constant and if such a 
procedure produces the desired result 
sign; determines whether the operand 
should be loaded with a load address 
command; and, determines whether the 
division may proceed in the register 
pair containing the numerator or it 
must be moved to another register 
pair. 

3. If both operands are in registers, 
SELGD is entered to determine whether 
the division may proceed in the regis- 
ter pair containing the numerator or 
the nunerator must first be moved to 
another register pair. 

Depending upon the output of SELOP, 
SLONE, or SELGD, instructions are generated 
to perform the division, and the result is 

assigned to the selected register. 

CEKOV — Add by Load Address CLADDR) 

LADDR is entered by the AGEN to generate 
the addition of two quantities (represent- 
ing a recursive test expression) by means 
of a load address instruction. See Chart 

EW. 
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ENTRIES ; The entry point is CEKOVl . LADDR 
expects restricted linkage convention. 
LADDR is parameter register P2 to contain 

the tree address of the major operator. 

EXITS ; Normal exit only. 

OPERATION ; LADDR is given the expression 
tree address of an operator whose two 
operands are to be added by means of a load 
address instruction. The operands are 
loaded into general registers (if not there 
already) and made to have the correct signs 
by means of LCR instructions when neces- 
sary. The two register numbers are made 
the X2 and B2 fields of a load address 
instruction. A third register is selected 
to contain the sum. This register becomes 
the Rl field of the LA instruction and may 
be the same as either B2 or X2, or may 
differ from both. If one of the operands 
is a positive constant less than 4096, the 
constant value will be used as the D2 
field, in which case X2 will be zero. 
Otherwise, ^en both X2 and B2 differ from 
zero, D2 will be zero. when all fields 
have been set, the instruction LA Rl,D2(X2, 
B2) is generated, 



CEKMG — Complex Plus Generator CCPLUS) 

CPLUS is entered by the expression 
generator to generate the complex addition 
of two operands. See Chart EX. 

ENTRIES ; The entry point is CEKMGl. CPLUS 
expects, in paran^ter register P2, a point- 
er to the tree node containing the plus 
operator. 

EXITS ; Normal exit only. 

OPERATION ; CPLUS generates code to perform 
the addition in a manner appropriate to the 
types of the two operands. Possible 
operand type combinations are given in 
Table 27 (CMUL) . If both operands, Ca+bi) 
and Cc+di) , are complex, the following cal- 
culation is performed; 



Table 27. Operand Types Processed by CMUL 
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ENTRIES: 



The entry point is CEKOFl. 



CMUL 



expects, in parameter register P2, a point- 
er to the tree node which contains the 
operation to be processed. 



(a+bi) + tc+di) = Ca-i-c) ^- Cb+d)i 

If one operand r is real, the addition is 
performed as follows; 



EXITS ; Normal exit only. 

OPERATION ; Given complex operands, (a+bi) 
and (c+di), CMUL performs the computation: 



r + Ca+bi) = [Cr + a) + bil . 

The code generated depends upon the 
operand types, signs, and locations 
(storage or registers) . 

CEKOF — Complex Multiply Generator (CMUL) 

CMUL is called by the expression genera- 
tor to generate a complex multiplication. 
The combination of operand types processed 
is given in Table 27. See Chart EY. 



Ca+bi) ♦ Cc+di) 
(bc+ad)i. 



Cac-bd) and 



Given real operand r and complex operand 
Ca+bi) , CMUL performs the computation: 



r * Ca+bi) 



Cra+rbi) 



Processing differs according to whether 
neither, one, or both operands are in 
floating-point registers, and according to 
whether or not both operands are complex. 
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If both operands are in storage and are 
complex, all four floating-point registers 
are used in the computation of the product. 
The product's real and imaginary parts will 
reside in, and be assigned to, registers 
and 2, respectively. 



If one operand is in a register pair, 
all four registers will be used, and the 
result will be assigned to and left in the 
same register pair. 



ENTRIES : The entry point is CEFOGl. CDIV 
expects input in parameter register P2, 
consisting of a pointer to the tree node 
containing the divide operator • 



EXITS : Normal exit only. 



OPERATION: Given complex operands, (a+bi) 

and (c+di), CDIV" generates code to perform 
the following computation: 



If each operand is in a register pair, 
all four registers will be used, and the 
result J if possible will be left in, and 
assigned to, the register pair which origi- 
nally contained an operand already in 
storage. 



CEKOG — Complex Divide Generator CCDIV) 

CDIV is entered by the expression 
generator to generate code to evaluate a 
complex quotient. The combination of 
operand types processed by CDIV is given in 
Table 28." See Chart EZ. 

Table 28. Operand Types Processed by CDIV 



a+bi = Cac+bd) + Cbc~ad) i 



c+di 



c^+d^ 



c^ + d^ 



•v; 


L^'l 


LM 


1*2 


1*4 


R-*4 


R*8 


C*B 


CM6 


L-i 


N 


N 


N 


N 


N 


N 


N 


N 


LM 


N 


! 

N 


N 


N 


N 


N 


N 


N 


1*2 


N 


N 


N 


N 


N 


N 


1*2 
R*4 


1-2 


1*4 


M 


N 


N 


N 


N 


N 


1*4 

RM 


1*4 
R^8 


R'4 


N 


N 


N 


N 


N 


N 


Y 


R^4 
R*8 


R*a 


N 


N 


N 


N 


N 


N 


C*8 
C*16 


Y 


C*8 


N 


1 

N 


1*2 

C*8 


C^8 


1 __ 1 

R*4 

C*8 


U*8 

JC*16 

jC-8 
|C*16 


Y 


C^8 

C-lo 


C*^16 


N 


N 


1*2 
C*16 


1*4 

ei6 


C*]6 


R*B 
C-16 


C*8 

ei6 


Y 



Given real divisor r and complex numera- 
tor Ca+iDi), CDIV generates code to perform 
the evaluation: 

a+bi = a + b 1 
r r r 

Processing depends upon whether neither, 
both, or one operand is in floating-point 
registers. In all but the complex/real 
case, all four floating registers are used. 



CEKMH — Relational Expression Generator 
CRLTNL) 

RLTNL generates code to evaluate the 
logical result of the relational operators 
.GT., .LT., and .EQ., or to generate the 
conditional branch associated with a logi- 
cal IF statement. The types of the two 
operands of any given relational expression 
must be identical and may be Integer* 2, 
Integer*^, Real*4 or Real*8. The type of 
the result (when the result is a logical 
value) is always Logical*^. See Chart FA. 



ENTRIES ; The entry point is CEKMHl. RLTNL 
expects the expression tree address of the 
relational operator in parameter register 
P2. 

EXITS : Normal exit only. 

OPERATION: Instructions are generated to 
compare the left and right operands. As a 
result of this comparsion a logical value 
(true or false) is generated in all but one 
situation: the expression is being used to 
determine the branch condition of a logical 
IF statement and the expression is not a 
common expression. In this case a condi- 
tional branch is generated to the label 
specified in the logical IF PF entry. 
Otherwise, the same branch type is 
generated, but in this case a local branch 
(e.g., BNE*+6) which completes the con- 
struction of a logical value by generation 
of the "false" condition. For example, 
consider the generation which might result 
from the following cases: 
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(1) 

L=B.GT.C 

LA 3,1 

LE 0,L-i 

CE ,C 

BH *-»-6 

SR 3,3 

ST 3,L 



IF (Y.GT.X) GO TO 20 

LE 0,Y 
CE 0,X 
BH 20 



agreement) as summarized in the following 
table: 



In case 1 the comparison results in set- 
ting general register ; to true or false. 
In case 2 the comparison results in condi- 
tionally branching t^ statement naraber 20. 

The code generated further depends upon 
the types of the operands, the signs of the 
operands, and whether or not the operands 
are in registers. SELOPrSLONE, and SLPOS 
are used to complement constant operands, 
may be loaded with the load address 
instruction; determine which, if either, 
operand must be complemented with a load 
complement instruction; and, if the operand 
to be complemented is in a register, wheth- 
er the operand may be complemented in that 
register or must be moved to another regis- 
ter (register is always used for this 
purpose) before the comparison may take 
place. If the generation results in the 
computation of a logical result, the result 
is assigned to the selected register. 



CEKMI — Logical Expression Generator 
(ANDOR) 

ANDOR generates code to evaluate the 
logical .AND. and .OR. operators or to 
generate the conditional branch associated 
with a logical IF statement. The logical 
operands must have the same type but may be 
either of type Logical*! or Logical*^. See 
Chart FB. 

ENTRIES J The entry point is CEKMIl . ANDOR 
expects the expression tree address of the 
logical operator in parameter register P2. 

EXITS ; Normal exit only. 

OPERATION : ANDOR generates the logical 
.AND. or .OR. of two logical operands. 
Logical*!*, and Logical*! operations are 
somewhat different. If the operation type 
is Logical*^, at least one operand is 
forced to be in a general register by means 
of a load instruction, and (if necessary) 
the operand signs are made to match by com- 
plementing one of the operands. If the 
operation type is Logical*!, both operands 
are forced to be in general registers with 
the same signs, the loads in this case 
being performed with the combination sub- 
tract register- insert character. The logi- 
cal operation generated and the result sign 
depend upon the expression tree operation 
code and the operand signs (after any com- 
plementation required to force operand sign 



Expression 


Tree 


Operand 


Operation 


Result 


Operation 


Code 


Signs 


Generated 


Sign 


Aim 




+ 


AND 


+ 


AND 




- 


OR 


- 


OR 




+ 


OR 


+ 


OR 




- 


AND 


- 



After the logical operation has been 
generated, the result is assigned to the 
selected register, and if either the back- 
link to the next higher expression in the 
expression tree is not zero (indicating 
that the operation generated is part of a 
larger expression) or the logical IF flag 
is not raised (indicating that the expres- 
sion is not part of a logical IF state- 
ment) , generation is complete. Otherwise, 
a conditional branch to the label specified 
in the IF statement is generated. The con- 
dition code has been established by the AND 
or OR operation generated, and the branch 
instruction generated depends upon the sign 
of the result and the sign of the expres- 
sion tree operator, as follows: 



Expression 

Tree Sign 

+ 



Result 
Sign 



Branch 

Operation 

BZ 

BNZ 

BNZ 

BZ 



CEKMO — Maximum Operator Generator (MAX) 

MAX generates code to evaluate the maxi- 
mum of two quantities. The types of the 
two operands must agree, but may be 
Integer*2, Integer*4, Real*4, or Real*8. 
Note: Phase 1 has reduced maximum and 
minimum operations to maximum according to 
the transformation 

MIN (A,B) = -MAX(-A,-B) 
or 

MIN CA,B,C> =-MAX(MAX(-A,-B) ,-C) 

and has accounted for differences in the 
types of operands and results by introduc- 
tion of conversion functions such as 



AMAXO (I, J)=FLOATCMAX(I, J) ) 



or 



MAX! (A, B) =INT (MAX (A, B) ) 

See Chart FC. 

ENTRIES : The entry point is CEKMUl. MAX 
expects the expression tree address of the 

MAX operator in parameter register P2. 

EXITS : Normal exit only. 

OPERATION : In general the generation of 
the maximum operations consists of selec- 
tion of a register to contain the result. 
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generation of an instruction to obtain one 
operand in the selected register, genera- 
tion of a compare instruction to compare 
the two operands, generation of a condi- 
tional local branch (e.g., BE *+8) , and 
generation of a conditionally executed load 
or load register instruction to obtain the 
other operand in the same selected 
register. 

Generation varies in the obvious ways 
according to operand type (integer or real) 
and in addition depends upon the location 
and signs of the operandi^: 

1. If neither operand is in a register, 
SELOP is entered. SELOP determines 
the result sign; which operand to load 
first; whether the load may be accomp- 
lished with the load address instruc- 
tion; and, whether the operand to be 
loaded must be complemented before the 
comparison is generated- 

2. If one operand is in a register, SLONE 
is entered. SLONE determines the 
result sign; whether the operation may 

take place in the register containing 
the operand; and, whether the operand 
must be complemented, either in place 
or while being moved to another 
register « 

3- If both operands are in registers, 
SLPOS is entered. SLPOS determines 
the result sign; which operand regis- 
ter is to contain the result or that 
one of the operands must first be 
moved to still another register; and, 
whether the selected operand must be 
complemented, either in place or while 
being moved. 

Generation of instructions required to 
position the operands for comparison is 
performed as indicated by SEL.OP, SLONE, or 
SLPOS. The conditional branch instruction 

generated depends upon the adjusted signs 
of the operands. If the signs are correct, 
BNL is generated; otherwise, BNH is. 



CEKMK — External Function Generator (FUNC) 

FUNC is entered by the expression 
generator and by the CALL statement proces- 
sor to generate a function or subroutine 
call. Calls upon subroutines with no argu- 
ments are not processed by the expression 
generator and are not treated by this rou- 
tine. See Chart FD. 



ENR 



ENTRIES: 



expects a 
ing the ; 
ter register P2 . 



The entry point is CEKMKl. FUNC 

pointer to the tree node contain- 

operator to be passed in parame- 



EXITS: Normal exit only. 



OPERATION: The tree ■■-try to be processed 
is a ; operator, whost; right operand is the 
function name and whose left operand is 
either an expression entry (representing 
the one argument) or a , operator if there 
is more than one operand. Upon entry, all 
arguments are in storage with the desired 
sign. 

The current length of storage class 5 is 
obtained from the Storage Class Table. The 
length indicates the next available byte in 
the parameter list area. A parameter list 
covering adcon is formed and is entered in 
the symbol table by TEVFL4. An instruction 
is generated to load the adcon into general 
register 1. 

The leftmost (first) argument of the 
function operator is located by following 
left branches in the tree, until one such 
branch is not an argument separator opera- 
tor (comma) . Then, starting with the left- 
most operand, and following backlinks until 
the function operator is encountered, each 
argument is given the following processing, 
according to its class code. 

1. Constant operand 

The SLOC of the covering adcon and the 
displacement given in the operand item 
are summed, to form a new adcon cover- 
ing the same storage class. The new 

adcon is entered in the parameter list 
via TEVFL5. 

2. Variable operand 

If the variable is not a formal sub- 
program argument, it is processed in 
the same manner as a constant. Other- 
wise, instructions are generated to 

compute the effective address of argu- 
ment and to store that address in the 
next available cell in the parameter 
list. 

3. Operator item 

a. Subscripted variable 

If the operand sign flag is set, 
the comma processor has previously 
negated the variable and put it in 
temporary storage, recording the 
temporary assignment in the tree. 
In this case the operand process- 
ing is similar to that given a 
constant. If the flag is not set, 
instructions are generated to com- 
pute the effective address of the 
variable and to store that address 
into the next available cell in 
the parameter list. 
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b. Other expression 



The temporary covering adcon value 
is added to the displacement given 
in the tree, and a new adcon is 
formed and addled to tne parameter 
list by TEVFL5. 

4. Common expression item 

Processing is similar to that given an 
operator, except that the information 
concerning temporary assignment is 
obtained from the name table, rather 
than from the tree. 

5. Function item 

a. Function name is a formal subpro- 
gram argument. 

Code is generated to fetch the pa- 
rameter location from the adcon 
page, where it was stored in a 
subprogram entry preamble, and to 
store it in the next available pa- 
rameter list cell. 

b. Function name is not a suDprogram 
argument. 

A V/R adcon pair is formed and 
entered in the symbol table by 
TEWR. The storage assignment of 
the V-type adcon is combined with 
storage class i*, to form a new 
adcon which points to the V/R 
pair. The nev-/ adcon is entered in 
the next available cell in the pa- 
rameter list. 

6. Residue 

Processing is the same as that given a 
coninon expression item. 

After all the arguments have been pro- 
cessed, the remainder of the linkage 
is generated. This consists of the 
following code: 

• Function being called is not a form- 
al argument of the calling routine. 



Load R- adcon 
Store in caller's 

PSECT 

Load V- adcon 

Branch 



where D is the displacement with 
respect to the orgin of the caller's 
adcon page necessary to cover the 
first byte of the 8-byte adcon pair. 



L 


14,D+4C13) 


ST 


14,72(13) 


L 


15,DC13) 


BASR 


14,15 



L 


15,CC13) 


Load pointer to 
adcon pair 


L 


14,4(15) 


Load R-adcon 


ST 


14,72(13) 


Store in caller's 
PSECT 


L 


15,0(15) 


Load V- adcon 


BASR 


14,15 


Branch 



Function being called ir 
argument. 



a formal 



where C is the displacement from the 
adcon page origin of the cell into 
which a pointer to the adcon pair is 

placed in the subprogram preamble. 

CEKNJ — Comma Operator Processing 
Subroutine (COMMA) 

COMMA is called by the arithmetic ex- 
pression generator to process the arguments 
of a comi?.a (argument separator) operator or 
by the function operator processing subrou- 
tine to process the argument of a 1- 
argument function. Its purpose is to 
ensure that the operands of the comma 
operator or the operand of the function 
operator are in memory with the correct 
sign. See Chart FE. 

ENTRIES : COMMA has two entry points: 
COMMA (CEKNJl), entered by the Arithmetic 
Expression Generator, and COMA2 (CEKNJ2) , 
entered by the Function Operator Processing 
subroutine- COMMA and COMA2 expect in pa- 
rameter register P2 the expression tree 
address of the comma operator and the func- 
tion operator, respectively. 

EXITS : Normal exit only. 

OPERATION: The left operand of a function 
operator and the right operand of a comma 
operator are always processed. The left 
operand of a comma operator is processed 
only if it is not itself a comma operator. 
The operands processed are treated accord- 
ing to their class: 

1. A constant requires no processing if 
its tree sign is plus. Otherwise, the 
constant is complemented, the result- 
ing constant is filed in the symbol 
table, and the constant item in the 
tree is changed to reflect the new 
associated symbol table entry. 

2. A variable requires no processing if 
its tree sign flag is plus. Other- 
wise, a temporary storage location is 
assigned; and, FETCH is entered 

a. to load, complement, and store the 
variable in temporary if the vari- 
able was not in a register; 

b. to complement and store the vari- 
able in temporary if it was in a 
register with the wrong sign; or, 

c. simply to store the variable in 
temporary if it was in a register 
with the desired sign. 
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The identity of the temporary™ covering 
adcon and disp la-cement are stored in 
the associated fields in the variable 
item. 



3. A colon operator or colon common ex- 
pression requires processing if its 
tree sign flag is not plus. It is 
treated in the same fashion ar. a vari- 
able. HO'Wever, the identity of the 
temporary-covering adcon and di^^> place- 
ment are recorded in the name table if 
the operand is a common expression. 

4. Processing of a noncolon operatc:^r 
depends upon whether or not the 
operand is in storage. If it is in 
storage and the storage and tree signs 
agree, no action is taken. If it is 
in storage and the storage and tree 
signs differ, FETCH is entered to load 
the operand from its temporary, to 
complement it, and to store the com- 
plemented value in the same temporary 
location. If the operand is in a reg- 
ister, a temporary is assigned, and 
FETCH is entered to complement and 
store the operand in the temporary if 
the register and tree signs disagree, 
or simply to store it in temporary if 
they agree, 

5. If a noncolon common expression is in 
storage and its storage sign agrees 
with the tree sign, no fui^.her pro- 
cessing is required. If it is in 
storage and the signs disagree but the 
Name Table entry indicates that a 
secondary temporary has been assigned, 
the tree entry's "use secondary tem- 
porary" flag is set. 

If the common expression is in 
storage, its Name Table storage sign 
disagrees with its tree sign, and a 
secondary temporary has not been 
assigned, then a new temporary is 
assigned, its assignment is recorded 
in the secondary tem,porary assignment 
field of the name table entry # the 
name table "secondary temporary 
assigned" flag is set, and the tree 
entry's "use secondary ten'^porary" flag 
is set. FETCH is entered to load, 
complement, and store the operand if 
it is not also in a register or to 
complement and store if it is already 
in a register with the wrong sign. 

If the common expression is not in 
storage, a temporary is assigned and 
the assignment is recorded in the name 
table. FETCH is entered to complement 
and store the expression in temporary 
if its register sign disagrees with 
its tree sign or simply to store it if 
the signs agree. 



h function item requires no 
processing. 



CEKQM ^ — Open Function Control Routine 
CDCOM) 

Tnis program is called by the arithmetic 
expression generator (AGEN) when a ; ; 
operator (open function connector) is 
encountered. The purpose of this routine 
is to invoke the open function processing 
module appropriate to the function number 
which is given in the right-operand of the 
; ; operator. See Chart FF. 



ENTRIES : DCOM has two entry points. Tne 
main entry CCEKOMl) is made with the major 
operator address in parameter register P2. 
The alternate entry in DCOM (CEKOM2) is 
physically packaged with CEKOM; but is 
actually one of the six open function 
modules called by DCOM, and its description 
is to be found under "CEK0M2 -- Open Func- 
tion Processing Routine (OPEN6)." 



EXITS : This routine produces no output. 
If the function number given as input is 

not among those expected, DCOM makes a 
machine/compiler error exit via PHM-MER. 



OPERATION ; The function number is obtained 
from, the right- operand of the ; ; operator 
in the expression tree. The appropriate 
open function module processing routine 
entry address is obtained by a table look- 
up operation, indexed by function number. 
The routine is then invoked. When return 
is made to DCOM, DCOM immediately returns 
to AGEN. 



CEKOT — Open Function Processing Routine 
COPENl) 

OPENl is invoked by DCOM to process any 
of the open functions, DSIGN, HDIM, IDIM, 

DIM, SIGN, or DDIM. See Chart FG. 

ENTRIES ; Entry is to CEKOTl, with the 
major operator tree address in parameter 
register P2 and the open function number in 

parameter register P3. 

EXITS : If the function number given as 

input is not among those expected, OPENl 
makes a machine/compiler error return via 
PH4MER. 



OPERATION: 



This routine performs the code 



generation to effect the following 

functions : 

SIGN(A,B)=(sign of B) *|A| 
DIMCA,B) = Max(A-B,0) 
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CEKOU 



Open ftinction Processing^ Routine 



(QPEN2) 

OPEN 2 is invoked by DCOM to process any 
of the following open functions: 

CMPLX MOD 
DCMPO: HMOD 

See Chart FH. 



ENTRIES ; Entry it to CEKOIII, #ith the 
major operator tree address in parameter 
register P2 and the open function number in 
parameter register P3 . 

EXITS : If the function number given as 
input is not among those expected, OPEN2 
makes a machine/compiler emr exit via 
PH4MER. 

OPERATION: This routine performs the code- 
generation to effect the follo^^ing 
functions : 

CMPLX CA,B) is the complex quantity 
whose real and imaginary parts are A and B^ 
respectively. 



MOD (I, J) = I 

where [] denotes the integral part. 



I * J 

J 



CEKOX -- Open Function Processing Houtine 
(OPEN3) 



0PEN3 is invoked by DCOM to process any 
of the following open functions: 

lABS, DABS, ABS 
and the following type-conversion 
functions: 



OPERATION : This routine performs the code 
generation required to effect the above 
functions. 



CEKOY — Open Function Processing Routine 
C OPEN 4) 

0PEP4 is invoked by DCOM to process any 
of the following open functions: 

AMOD H3IGN ISIGN 
DCONJ AINT CONJ 
DMOD 

See Chart FJ. 

ENTRIES : Entry is to CEKOYl, with the 
major ope- rat or tree address in parameter 
register P2 and the open function number in 
parameter register P3 . 

EXITS ; If the function number given as 
input is not among those expected, OPEN 4 
makes a machine/compiler error exit via 
PH4MER. 

OPERATION ; OPEISI4 performs the code genera- 
tion to effect the following functions: 



MOD (A,B) = 



A - [a' 
LB, 



♦B 



AINT CA) = integer part of A 

CONJ CA+Bi) = CA~Bi) 

SIGN (A, B) = sign of B ♦jAf 

CEKQZ -- Open Function Processing Routine 
CQPEN5) 

OPENS is invoked by DCOM to process any 
of the following functions : Integer and 
real square, cube, fifth, and seventh 
powers; and, real reciprocal. See Chart 
FK. 



Operand Type 


Result Type 


1*2 


R*4 


1*2 


R*8 


1*2 


C*8 


1*2 


C*16 


1*4 


C*16 


R*4 


R*8 


R*4 


C*B 


R*8 


C*8 


R*4 


C*16 


C*8 


C*16 



ENTRIES: 



Entry is to CEKOZl, with the tree 



See Chart FI. 

ENTRIES ; Entry is to CEKOXI^, with the 
major operator tree address in parameter 
register P2 and the open function number in 
parameter register P3. 

EXITS : If the function numljer given as 
input is not among those expected, OPEN 3 
makes a machine/compiler error exit via 
PH4MER. 



address of the major operator in parameter 
register P2 and the open functions number 
in parameter register P3. 

EXITS ; If the open function number given 
as input is not among those expected, OPEN5 
makes a machine/compiler error exit via 
PH4MER. 

OPERATION : OPENS performs the code genera- 
tion to effect the above functions. 



CEK0M2 



Open Function Processing Routine 



(0PEN6)* 

OPEN 6 is invoked by DCOM to process any 
of the following open conversion functions: 



Operand Type 
R*i| 

R*8 



Result Type 
1*2 

1*4 
R*4 
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R*8 
C*8 
L*l 
L*t| 
1*2 

R*8 
C*8 
C*8 

C*16 
C*16 
C*16 
C*16 

C*16 



1*4 

R*4 

L*4 
L*l 
1*4 
1*2 
1*2 
1*2 
1*4 
1*2 

R*4 
R*8 
C*8 



See Chart FL. 



ENTRIES: Entry is to CEK0M2, with the 
major operator tree address in parameter 
register P2 and the open function number in 

parameter register P3 • 

EXITS: If the function number given as 
input is not among those expected, OPEN6 
makes a machine/compiler error exit via 
PH4MER- 

OPERATION : OPEN6 performs tne code genera- 
tion necessary to effect the above conver- 
sion functions. 



ber. However, if the adcon is not in a 
register, a register is selected, an 
instruction is generated to load the adcon 
into the selected register, and B2 is set 
equal to the number of the selected 
register. 

If the operand is a subscript connector, 
D2 is set directly to the value given in 
the displacement field of the left operand 
of the subscript connector, and one of two 
cases exists: the right operand of the 
subscript connector either is or is not a ? 
operator. If it is not, X2 is set to 0, 
the right operand of the subscript connec- 
tor is obtained in a general register (by 
loading it if necessary) , and B2 is set 
equal to the corresponding register number. 

If the right operand of the subscript 
connector is a ? operator, each of the two 
operands of the ? operator is treated 
(first right and then left) as if it were 
the single non-? operator operand of the 
subscript connector. The right operand 
determines B2, and the left operand (taking 
care that loading of the left operand does 
not disturb register B2) determines X2. 



CEKMy — Memory Access Routine CMEMAC) 

MEMAC is entered to obtain cover for a 
generated storage reference to an arbitrary 
expression tree operand and to provide X2, 
B2, and D2 instruction fields for the 

reference. See Chart FM. 



CEKQP — Load Covering Adcon Routine 
(COVER) 

COVER is called to obtain adcon cover 
for generation of storage reference that 
does not require an index field. 



ENTRIES ; The entry point is CEKMVl. MEMAC ENTRIES : Entry is to CEKOPl, with the sym- 



expects the expression tree address of the 
operand to be covered to be in parameter 
register P2. If parameter register Pi is 
nonzero, it is assumed to contain the num- 
ber of a general register that must remain 
undisturbed by MEMAC. If no such protec- 
tion is desired, the contents of register 
PI must be 0. 

EXITS: Normal exit only. Parameter regis- 
ters Pi, P2, and P3 contain X2, B2, and D2, 

r es pect iv el y . 

OPERATION ; MEMAC treats two distinct 
cases: the operand requiring cover either 
is or is not a subscript connector. If the 
operand is not a subscript connector, X2 is 
set to 0, and D2 is obtained directly from 
the displacement field of tree entry or the 
name table entry appropriate to the class 
of the operand. Likewise, the symbol table 
pointer to the covering adcon is obtained; 
and, if that adcon is in a general regis- 
ter, B2 is set equal to the register num- 



bol table pointer to the desired adcon in 
parameter register P2. Parameter register 
number Pi must have either the number of a 
general register whose contents must be 
left undisturbed by the potential adcon 
load or zero. 



EXITS : Normal exit only. The number of 
the register which contains the adcon is 
returned in parameter register P2. 

OPERATION : COVER is given the symbol table 
pointer to an adcon. It determines whether 
the adcon is in a general register. If so, 
the register number is returned. If not, a 
register is selected, the adcon is loded 
into that register, and the selected regis- 
ter number is returned. 



CEKMZ 



Local Branch Generator (SADDR) 



♦CEKOM2 is physically an alternate in mode 
CEKOM. 



SADDR is called by the relational ex- 
pression generator and by other routines 
requiring generation of a forward branch 
relative to the current value of the loca- 
tion counter- See Chart FN. 
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ENTRIES : Entry is to CEKMZl, with the 
desired displacement in parameter register 
P3. Up to two registers may be specified 
as unavailable for use as branch cover. 
These are input in parameter registers PI 
or PI and P2. 



EXITS : Normal exit only. SADDR returns 
the effective displacement and a register 
number in parameter registers PI and P2 



table entry for the label to which the 
branch is to be made. LBL then searches 
the registers to determine if an appropri- 
ate adcon is present to cover the branch 
about to be generated. If not,, a register 
is selected and assigned, and a load of the 
adcon generated. Next, a special ID item 
is created for Phase 5, to flag this as a 
branch reference whose address is to be 
filled in. Finally, the incomplete branch 
instruction is generated. 



respectively. 



OPERATION : SADDR expects as input a param- 
eter whose value is between and ii095, 
inclusive. The value repres€'nts the 
desired destination in bytes, relative to 
the location counter. It is assumed that 
if SADDR must generate a load to cover the 
destination address, the par£imeter value 
will apply to the location counter setting 
in effect after that load ha: been 
generated. 



CEKOS — Operand Fetch Complement/Store 
Routine (FETCH) 

FETCH is called by the comma operator 
processor to ensure that each argument of a 
function or subroutine is in storage with 
the desired sign. See Chart FP. 



ENTRIES : The entry point is CEKOSl. Input 
parameters are as follows: 



The sum (S) of the current, location 
counter value and the parameter value is 
computed. The register table is searched 
to find a register containin<| an adcon or a 
code cover quantity whose value CV) is such 
that : 

V < S < V+4096. 

If such a register is found, the register 
number and displacement are returned to the 
caller. The displacement, in this case, is 
equal to S-V. If no such register exists, 
SELSR is called to select a register CR) 
into which cover may be loaded. INSOT is 
called to generate the instraction BASR 
R,0. ASAR is entered to make a register 
table entry for the code cover quantity now 
in R. R, together with the same displace- 
ment given as input, is output to the call- 
er, and exit is made. 

CEKNV — Labeled Branch Generator Cli^L) 

IiBL is called to output code to branch 
to a statement label and provide any neces- 
sary cover prior to branching- See Chart 
FO. 



ENTRIES: 



Entry is made to CEKNVl, with one 



of the types of branch operation codes in 
parameter register PI and a symbol table 

label entry pointer in parameter register 
P2. 

EXITS ; Normal exit only. The output of 
LBL is via INSOT, a generated branch 
instruction in the code file?. 

OPERATION ; LBL is provided with two input 
parameters; the type of branch required to 
be generated, and a pointer to the symbol 



Parameter 
Register 
PI 



P2 
P3 
P4 
P5 



Contents 

Request Key 

20 = Fetch 

21 = Complement 

22 = Store 

Temp- covering adcon pointer if 
store requested 
Displacement relative to temp- 
cover if store requested. 
Register number if operand is 
in a register 
Operand tree address 



EXITS : Normal exit only. 

OPERATION ; FETCH generates instructions as 
indicated by input options to load an 
operand into a general or floating regis- 
ter, to complement it in that register, and 
to store it in a specified temporary cell. 
The usage of floating versus general regis- 
ters and related instructions is dictated 
by the operand type given in the expression 
tree. 



CEKND 



Select Operand Routine (SELOP) 



SELOP is a general purpose operand opti- 
mizing routine which is used by all the 
routines RPLUS, CPLUS, IPLOS, RMUL, CMUL, 
IMPLY, RDIV, CDIV, IDVDE, RLTNL, ANDOR, and 
MAX when both operands are in storage. See 
Chart FQ. 

ENTRIES : The entry point is CEKNDl . Reg- 
isters PI and P2 contain the output parame- 
ters from subroutine KEY (i.e., the signs 
of both operands) , and parameter register 
P3 contains the expression tree address of 
the operator whose operands are being 
considered. 
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Register 
P5 



I 



Operation 



-T- 
I 



Value 




Significance 



P5 



P5 



P6 



P6 



maxxmum, 
relational, 
or logical 

maximum, 
relational, 
or logical 

multiplication 
raulti plication 
multiplication 

maximum, 
relational, 
or logical 

multiplication 




1 

irrelevant 



Do not complement after 
loading operand. 



Complement after loading 
operand. 



Standard multiplication. 
Multiply with shift. 
Multiplication by 1. 



Amount of shift if shift is 
indicated. 



EXITS: Normal exit only. Parameter regis- 
ters PI and P2 contain the result sign CO 
for plus and 1 for minus) and the expres- 
sion tree address of the operand to be 
loaded, respectively. If bit of parame- 
ter register P3 is 0^ the operand is not to 
be loaded with a load address instruction; 
otherwise, bits 20 through 31 contain the 
immediate value to be loaded by means of a 
load address instruction. If the operation 
is plus, the value in parameter register P4 
(0 or 1) indicates that an addition or a 
subtraction, respectively, is to be per- 
formed; otherwise, the register contains 
the expression tree address of the second 
operand. Param,eter registers P5 and P6 
have meaning only for the maximum, rela- 
tional, logical, and multiplication opera- 
tors as summarized in the above table: 

OPERATION : The output parameters from 
SELOP specify a procedure for generating 
code in an optinal fashion for the given 
operation and, combination of operand signs. 
In particular, SELOP attempts, in one of 
two ways, to allow for generation of a 
result whose sign matches that of the ex- 
pression tree node being processed- The 
first way takes similar forms for the plus 
and logical operators and simply involves a 
choice of which operand is to be loaded. 
For trees 





the right and left operands, respectively, 
would be chosen to be loaded. Similarly, 
for trees 



.AND. 



.AND. 





the left and right operands, respectively, 
would be chosen. The code generated for 
the cases might be 



1. 



3. 



LE 


0,B 


SE 


0,A 


L 


5,C 


BCTR 


5,0 


LCR 


5,5 


N 


5,D 



2. 



4. 



LE 


0,A 


SE 


0,B 


L 


5,D 


BCTR 


5,0 


LCR 


5,5 


O 


5,C 



For the multiply and divide operators, 
the operand loaded is irrelevant in deter- 
mining the result sign. For these opera- 
tors, if a direct product would not produce 
the desired sign, the operands are 
examined. If one is a constant, the con- 
stant is complemented and filed in the sym- 
bol table, and the tree entry for the con- 
stant item is modified to reflect the 
change. 



For any of the ari 
the operand selected 
tive integer constant 
deed, if there is no 
ing which operand to 
operand is chosen) , a 
in the form of a flag 
selected operand may 
address instruction. 



thmetic operators if 
for loading is a posi- 

less then 4096 (in- 
other basis for choos- 
load, such a constant 
parameter is returned 
to indicate that the 
be loaded with a load 



In only one situation is the production 
of the desired result sign ignored. If the 



17t| 



operation is an integer multiplication, and 
one of the operands is an integer power of 
two, the other operand is selected for 
loading and multiplication by shifting (or 
by loading only, if the operand is 1) is 
indicated, regardless of the result sign. 



OPERATION ; The two registers containing 
the operands are given weights according to 
their contents as determined from the ID 
field CMRM2) of the initial entries of tne 
corresponding MRM or MRMFR table entries. 
Following is a tabulation of the weights 
assigned: 



CEKNF — Select Position for Operation 
C SLPOS ) 

SLPOS is a general purpose operand opti- 
mizing routine used by all the routines 
RPLUS, CPLUS, IPLUS, RMOL, CMCJL, IMPLY, 
RLTNL, ANDOR, and MAX when both opt:^rands 
are in registers. See Chart FR. 



EMTRIES : The entry point is CEKNFl . Pa- 
rameter registers PI and P2 contain the 
output from the KEY subroutine C numbers of 
registers containing the two operands and 
the corresponding register signs), and pa- 
rameter register P3 contains the expression 
tree address of the operator whose operands 
are being considered. 

EXITS ; Normal exit ionly. Parameter reg- 
ister PI contains the select€'d operand reg- 
ister in the following form: 

0<P1<15 PI = selected register; use 
as is. 

-15<P1<~1 I Pi I = selected register; 
move operand b€?fore using. 

16<P1<31 Pl-16 = selected register,- 
complement register before 
using, 

^095 Floating --point register is 
selected; complement before 
using. 

-31<P1<-16 I PI I -16 = selected register? 
move and complement before 
using. 



Parameter register P2 contains the result 
sign: for plus, 1 for minus. Parameter 
register P3, applicable only for plus 
operator, contains to indicate addition 
or 1 to indicate subtraction.. For a multi- 
plication operator, the content of P3 has 
the following meaning: 

-- perform standard multiplication. 

1 -- multiply by shifting. 
-4 095 — multiply by 1 

Cno multiplication) . 



Parameter register P4 is of significance 
only if P3 contains a 1, in A^hich case the 
contents of register P4 indicate the number 

of places of shift to be generated. 



Weight Contents 

9 Operator 

8 Common Expression Clast use) 

6 Variable 

5 Constant Less than il096 

^ Constant (Greater than i*095) 

3 Address Constant 

2 Stored Common Expression 

1 Unstored Common Expression 

If the operand signs are identical, or 
if the two weights are not identical and 
either operand is an unstored common ex- 
pression which is not now being used for 
the last time, no refinement of the prelim- 
inary weights is made. Otherwise, an 
increase of 2 is made to the weight of the 
operand whose register sign matches the 
tree sign of the operator being generated. 
This tends to increase the probability that 
the result sign will be the desired sign. 

For all floating-point and logical 
operators, the weights are compared, the 
operand with the highest weight is chosen 
as the "to" operand, and the corresponding 
determination of result sign is made. 
Additionally, if the floating-point opera- 
tion is plus, the agreement or disagreement 
of the operand signs determines the opera- 
tion, add or subtract, respectively. 

The integer operators require further 
tests. If the register occupied by either 
of the operands is globally assigned, the 
corresponding weight is complemented. Then 
if the maximum weight is negative, SLPOS 
specifies that one of the operands must be 
moved to another register which will become 
the "to" register. If moving one of the 
operands with a load complement instruction 
will produce the dcisired sign, SLPOS speci- 
fies that this be done. 



CEKOW — Select One Operand in a Register 
(SLONE) 

SLONE is a general purpose operand opti- 
mizing routine used by RMUL, CMUL, IMPLY, 
RDIV, CDIV, IDVDE, RLTNL, ANDOR, and MAX 

when only one operand is in a register. 
See Chart FS. 

ENTRIES: The entry point is CEKOWl. Pa- 
rameter registers PI and P2 contain the 
output from the KEY subroutine (the regis- 
ter number and register sign of the operand 
that is in a register and the storage sign 
of the other operand) and parameter regis- 
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ter P4 contains the expression tree address 
of the operator being processed. 



EXITS ; Normal exit only. Parameter regis- 
ter PI contains the result sign; P2 con- 
tains the expression tree address of the 
operand in storage; and, P3 contains if 

the storage operand need not be loaded, 1 
if it must be loaded from storage or 
X»80000nnn% indicating that it should be 

loaded with a load address instruction 
whose D2 field has the value nnn. The con- 
tents of parameter registers PI, P5, and P6 
vary with the operator being processed: 



I Register I 
I- ■—^- 

m 



P4 



p^ 



P5 



P5 



P6 



P6 



P6 



i .^ .- 



— --» -^ — ^^ _ — ^ -. — _^ 

Operation I Value j 

Expression Tree 
address of reg- 
ister operand 



I Maximum, 

I logical, 

I or relational 

[Plus 



— 

1 — 



I Multiply 



I Maximum, 

[logical 

I or relational 





1 

1-1 



1-1 — 



Add 
Subtract 

Multiply 
Shift 
Multiply 
by 1 

Move with 
Load Comple- 
ment 



[Add, 

I multiply, 

lor divide 



I Maximum, 
(logical, 
I or relational! 

I Plus 



FFFFOOOO — ^ Move 
with Load 
Register 

— Do not move 

operand 

1 — Move with 

Load 

Register 
|-1 — - Move with 

Load Comple- 
ment 

Desired result 
sign 



[Multiply 



— Add or sub- 

tract in 
register 

1 — Load storage 

operand into 
a second 
register and 
add or sub- 
tract there 

Length of shift 



if P4 
wise, 
if P4 
wise. 



= 1; other- 
irrelevant 
= 1 ; other- 
irrelevant 



OPERATION ; For a multiplication operation 
SLONE determines whether the operation may 
be performed by a shift instruction. For 
all operations SLONE determines whether the 

operation may be performed in the register 
Cor register pair) containing one operand 

or if the operand must be moved to another 
register (or register pair) - SLONE also 
determines the result sign and attempts to 
arrive at the desired sign either by filing 
the complement of a constant storage 
operand in the symbol table or by determin- 
ing, when the register operand must be 
moved to another register, i^ether it 
should be moved with a load complement 
instruction . 

If the storage operand must be loaded 
into a register, SLONE determines whether 
the load may be performed with a load 
address instruction. 

CEKNB — Determine Availability of Register 
for Multiplication CSELGM) 

SELGM is entered by SLONE to determine 
if an integer multiplication may be per- 
formed in a register pair which contains a 
given register, and by SLPOS to determine 
whether a multiplication may be performed 
in either of two register pairs. See Chart 
FT. 

ENTRIES ; The entry point is CEKNBl. Eith- 
er parameter registers PI and P2 contain 
the two given registers, or Pi contains the 

only given register and P2 contains -1, 

EXITS : Normal exit only. For each of the 
inputs in parameter registers PI and P2, 
the output contained in the same register 
is either the input value if the corre- 
sponding register member may be used as the 
Rl field of an integer multiply instruc- 
tion, or is negative if the corresponding 
register number may not be so used- 

OPERATIQN : If either register contains a 
quantity of type Integer*2, the register is 
disqualified only if it is globally 
assigned. If two registers are specified, 
neither is globally assigned, and they are 
an even/odd pair (e.g., 2/3 but not 7/8), 
neither is disqualified. 

If the register number is even, it is 
disqualified. If the register number is 
odd, and the even numbered member of the 
corresponding even/odd register pair neith- 
er is globally assigned nor contains an 
unstored common expression, the odd num- 
bered register is qualified. In the 
remaining case if the register number is 
odd and the even numbered member of the 
corresponding even/odd register pair is not 
globally assigned, but is an unstored com- 
mon expression, the qualification of the 
odd numbered register is postponed - 
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After "the registers presented as input 
to SELGM have been processed as above, each 
register will have been qualified or dis- 
qualified or will have had its qualifica- 
tion postponed. 

If no postponement of the qualification 
of a register has occurred, exit is made 
from SEIjGM. If qualification of only one 
of the two registers has been postponed and 
the other register has been qualified, the 
former register is disqualified and exit is 
made. 



In the remaining case, qual 
both registers has been postpo 
has been one postponement and 
fication. If there is at leas 
ing general register which is 
assigned and does not contain 
common expression, both input 
disqualified, and exit is made 
Otherwise, SELSR is entered to 
of the registers which has not 
qualified (thereby storing its 
if the other register has had 
cation postponed, it is now di 
and exit is made from SELGM 



ification ot 
ned , or there 
one disquali- 
t one remain- 
not globally 
an unstored 
registers are 
from SELGM. 
select one 
been dis- 
contents) ; 
its qualifi- 
squalif led. 



If only one register is to be considered 
by SELGM, its treatment may be found from 
the above discussion by assuming that it is 
one of two registers to be considered, the 
other of i^ich has already been 
disqualified. 



CEKNA — General Register Availability for 
Integer Divide (SELGD) 

SELGD is called by IDVDE when the 
numerator of a quotient is in a general 
register to determine whether the division 
may take place in the register pair con- 
taining the numerator. See Chart FU. 



ENTRIES : The entry is CEKNAl. Parameter 
register PI contains the register number of 
the numerator. P2 contains the register 
number of the denominator if the denomina- 
tor, too, is in a register; otherwise, it 
contains -1 - 



EXITS ; Normal exit only. Parameter regis- 
ter PI contains: 

1. The register number of the numerator 
if division may take plaice in that 
register, or 

2. The complement of that number if divi- 
sion may not proceed there, or 

3. Four times that number if the divisor 
may proceed and numerator and 
denominator are in the same register. 



QPERM' ION : If the numerator and denomina- 
tor are in the same register, exit is made 
from SEI/5D. If they are not in the same 
register pair, the numerator is in an even 
register that is not globally assigned, and 
the next higher numbered register is not 
globally assigned and does not contain an 
unstored common expression, then SELGD 
indicates that division may proceed in the 
register pair containing the numerator. 
Otherwise, SELGD indicates that the numera- 
tor must be moved to another register pair 
before the division may take place. See 
Chart NF. 



CEKQC — Operand Status Routine (KEY) 

KEY is called by the real and complex +, 
* , and / generators to determine the loca- 
tion (storage or register) of both operands 

of the current operation. See Chart FV. 

ENTRIES ; The entry point is CEKOCl. Pa- 
rameter register P2 contains a pointer to 
the operator tree node whose operand loca- 
tions are to be determined. 



EXITS: 



Normal exit only. KEY returns in 



parameter registers the indicated switching 
code, the register number of each operand 
in a register, and the associated register 

sign indicator. The left operand register 
number is right- justified in the left half 
of parameter register PI. The right 
operand number is right- justified in the 

left half of parameter register P2. The 
register signs of the left and right 

operands are right- justified in the right 
halves of registers PI and P2, 
respectively. 

OPERATION ; KEY first processes the left 
operand. If it is a variable or constant, 
FNDAR or FNDFR is called to determine 
whether the operand is in a register. If 
the operand is a partial result, the deter- 
mination is made by examining its tree 
entry. If the operand is a comnon expres- 
sion or residue, the determination is made 
by examining the name table. With this 
information, KEY constructs a 2- bit switch- 
ing code with the first bit indicating the 
absence or presence of the left operand in 
a register and the second indicating simi- 
lar inforn^tion for the right operand. For 
each operand in a register, KEY determines 
the register and sign from the correspond- 
ing MRM table. 



CEKQR -- Single Operand Locating Routine 
C KEYl) 

KEYl is entered to establish whether an 
operand is in a register or in storage, and 
to determine the operand's register/storage 

sign. See Chart FW. 
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I Qoantity j PI 
|.__™ ™^™. ^„+ ™^„ 



I 



P2 



P3 



P4 



Operator 

Common 
Expression 

Adcon 

Variable 

Constant 
Residue 



Expression Tree 
Pointer 

Name Table Pointer 



Symbol Table Pointer 

Symbol Table Pointer 
to Covering Adcon 

Symbol Table Pointer 

Name Table Pointer 



N/A 
N/A 

N/A 

Associated 
Displacement 

N/A 

N/A 



N/A 



N/A 



N/A 

Type Code 

N/A 
N/A 



ENTRIES : Entry is to CEKORl, with the 
operand tree address in parameter register 
P2. 

EXITS : Upon exit parameter register P2 
contains the operand's register number .if 
any; parameter register P3 contains the 
register/memory sign; and parameter regis- 
ter Pi contains a 1 if the operand is in a 
register, a zero otherwise. 

OPERATION : KEYl locates the operand by 
means of the FNDAR of FNDFR. routines if the 
operand is a constant^ variable , or adcon. 
If the operand is an operator, the informa- 
tion is obtained from the expression tree. 
If the operand is a common expression or 
residue, the information is obtained from 
the name table. If an operand is found to 
be in a register, the register number and 
register sign are returned, whether or not 
the operand may also be in storage. If an 
operand is not found to^ be in a register, 
it is assumed to be in storage; and, the 
storage sign is returned- A variable, con- 
stant, or adcon in storage is assumed to 
have storage sign plus. 

CEKMR — Search General Registers (FNDAR) 

FNDAR is used either to determine wheth- 
er a given quantity is in one of the gener- 
al registers or to determine whether there 
is at l^st one empty general register. 
See Chart FX. 

ENTRIES ; The entry point is CEKMRl . If an 
empty register is to be found, parameter 
register PI must contain 0; otherwise, 
input is required in the parameter register 
as a'bove: 

EXITS: Normal exit only. If parameter 

register PI is positive, its content is the 
register number containing the desired 
quantity or the number of an en.pty regis- 
ter. If Pi contains the value -4 0, the 
desired quantity is not in a register or 



there is no empty register. Otherwise, if 
the content of PI is negative, the absolute 
value of the content is the register con- 
taining the desired quantity, and the ex- 
pression sign of the quantity is negative. 

CEKMS — Search Floating Registers (FNDFR) 

FNDFR is used either to determine wheth- 
er a given quantity is in one of the float- 
ing registers or to determine whether there 
is at least one empty floating register. 
See Chart FY. 

ENTRIES ; The entry point is CEKMSl. If an 
empty register is to be found, parameter 
register PI must contain 0; otherwise, 
input is required in the parameter regis- 
ters as shown in the diagram,. 

EXITS ; Only normal exit is made. If the 
content of Pi is not negative and less than 
8 , it represents the register number con- 
taining the desired quantity or the number 
of an empty register. If PI contains the 
value -40, the desired quantity is not in a 
register or there is no empty register. 
Otherwise, if PI contains a negative num- 
ber, the absolute value of that number is 
the number of the register containing the 
desired quantity, and the expression sign 
is negative. In the System/360 computers 
has no distinct complement; therefore, if 
the register containing the negative ex- 
pression sign is register 0, parameter reg- 
ister PI will contain plus 8. 



CEKMW — Operand Processing Routine (OPND) 

OPND is called by the various arithmetic 
generators, or by the subroutine RSLT, at 
the statement processing level. It is 
called immediately after each reference to 

an expression tree entry, as the operand of 
a larger expression or as an operand from 

the statement level. Its purpose is to 

clear register storage and to release tem- 
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porary storage assigned to a 
or to a common expression whi 
again be referenced. If the 
is a sutecript connector iz) , 
somewhat different. A refere 
subscripted variable is treat 
reference to the subscript ex 
is said to be the operand. F 
this purpose there are actual 
of subscript expressions — - d 
whether the major operator of 
is a split C?) operator. Th 
tor represents an addition (p 
use of hardware base-index ad 
operands. In this case, OPND 
both operands of the ? opera 
ally, rather than the operand 
operator by itself. See Char 



partial result 
ch will not 

given operand 

processing is 
nee to the 
ed as a 

press ion which 
urther, for 
ly two kinds 
epending upon 

the subscript 
e split opera- 
erformed by 
dition) of two 

must treat 
tor individu- 

of the : 
-t FZ. 



ENTRIES: The entry points are CEKMWl, 
CEKMW2, and CEKMW3 . The input is a pointer 
to the first byte of the operand represen- 
tation in the expression tree: in ^rameter 
register P2. 



EXITS : Normal exit only. 

OPERATION : Processing varies 

class of operand presented -- 

constant, operator, common expression, and 

residue. 



with the 
variable or 



same manner as they were used in the opera- 
tor processing. When this is complete, the 
name table entry is cleared, and exit is 
made- 

CEKMY • — • Result-Register Operand Processing 
Subroutine CRSLT) 

RSLT is entered by the various arithme- 
tic generators as a substitute for entering 
OPND. RSLT is called when the operand par- 
ticipating in an operation is in the regis- 
ter which is destined to contain the result 
of the operation? that is, the operand is 
in the "to" register. The purpose of this 
routine is to ensure that if the "to" reg- 
ister contains an active common expression, 
that expression will either be moved to 
another register or stored, provided it is 
not already in storage. Since RSLT calls 
upon COVER, which may be required to load a 
temporary- covering adcon, the status of the 
noselectable bits of the result register 
and any other register specified as input 
parameters will be saved on entry to RSLT, 
then set to nonselectable, and restored 
immediately before exit. This is done to 
ensure that the register selected for 
temporary-cover, if any, will not be one 
containing either of the operands of the 
current operation. See Chart GA. 



Variable and constants require no pro- 
cessing, and exit is made immediately. 

Operators ( partial s) whicli are not sub- 
script connectors are processed as follows. 
If the tree "in storage" bit is set, the 
subroutine RLSWS is entered to reassign the 
associated temporary storage. If the "in 
register" bit is set, the specified regis- 
ter table entry is cleared. After this has 
been accomplished, exit is made. 



If the operator is a s 
tor, its right operand is 
right operand of the : i 
it is an operator, it is 
above, and exit is made; 
expression, it is treated 
the following paragraph; 
If the right operand of t 
of its operands is proces 
immediately above before 



ubscript connec- 
examined. If the 

s not a ?, and if 

processed as 

if it is a cowmon 
as described in 

then exit is made. 

he : is a ?, each 

sed as described 

exit is made. 



If the given operand is a common expres- 
sion or residue, the "last use" bit of the 
corresponding name table entry is tested. 
If it is not set, no further action is 
taken, since the last use of this expres- 
sion does not occur in the present state- 
ment. If, however, the bit is set, the 
count field of the name table entry is 
reduced by 1. If it has not reached zero, 
no further action is taken. Otherwise, 
register storage and temporary storage are 
released by use of the name table "in 
storage" and "in register" bits, in the 



ENTRIES ; The entry 
expects two para met 
tree podnter to the? 
from the operation 
in parameter regist 
the register number 
be protected agains 
cover, in parameter 
the given register 
as follows: 



point is CEKMYl. RSLT 
ers: The first is a 

operand to be protected 
about to be performed, 
er P2. The second is 

of another register to 
t loading with temp 

register PI. If R is 
number, R is interpreted 



If 1<R<15, then R is the corresponding 
general register. 

If R ~ (applicable only to the 
second parameter) , then no protection 
is required. 

EXITS ; NorEBl exit only. 



OPERATION : 



On entry, the status of the 



operand nonselectable indicator is manipu- 
lated as described above. Now OPND is 

called. Upon return, if the operand is not 
a common expression, it is a nonactive com- 
mon expression, or if it is an active com- 
mon expression already in storage, the non- 
selectable indicators are restored, and 
exit is made. Otherwise, if the operand is 
not of complex or real type, FNDAR is 
entered to determine if there is an empty 
general register. If there is, the common 
expression is moved to that register by an 
RR-load instruction, and ASAR is entered to 
assign the expression to the register. If, 
however, the type is real or complex or 



Section 6 ; 



Phase 4 179 



there is no empty register, FNDWS is 
entered to assign temporary storage; the 
assignment is entered in the name table; 
COVER is entered to cover the temp; and, 
the operand is stored. Now, in either 
case, the status of the nonselectable bits 
is restored, and exit is made. 



CEKNG — Select Single General Register 
CSELSR) 

SELSR is entered to select a specified 
general register, to select any register in 
an optimal manner, or to select in an 
optimal manner any register from a speci- 
fied restricted set of registers. See 
Chart GB. 



h 



Weight 
Assigned 



-+~ 



Register Contents 



Register empty 

Constant smaller than t^096 

7 jconstatn greater than 4095 

6 [Variable 

5 I Stored common expression 

4 I BASR- genera ted address 

3 I Ad con 

2 I Unstored common expression 

1 [Operator (partial result) 

[Register not selectable (either 
because the MSL or MGBL flag of 
the MRM Table entry is raised, 
or because an input parameter to 
SELSR had disqualified the 
register) . 



H 



ENTRIES ; The entry point is CEKNGl . One 
or two parameters may be entered in parame- 
ter registers PI and P2, However, if only 
one parameter is entered, it must be in PI, 
and P2 must contain 0. Specification of 
the register to be selected must be desig- 
nated only in register PI. If no specifi- 
cation of or restriction on the register to 
be selected is desired, register PI must 
contain 0, in which case the contents of 
register P2 are irrelevant- Otherwise, 
specifications and restrictions are made in 
either of or both registers PI and P2 as 
follows : 



[Value (V) f Meaning 

(. 4 ^ ^ 

|1<V<15 |V = Reg. No. Do not select 
[this register. 

16 [Do not select register 1, 14, 
I or 15, and in the course of 
[selection, do not move any 
I quantity into register 1, 14, 

!or 15. 

|-~15<V<-1 |V = -CReg. No.) Select regis- 
|ter number |V| . In the course 
I of selection, do not move any 
I quantity into register 1, 14, 
I or 15. 
-30<V<-16|V = -15- (Reg. No.) Select 
[register number |V|-15. 



EXITS : Normal exit only. Parameter regis- 
ter PI contains the number of the register 
selected. 



OPERATION : 



SELSR associates with each reg- 



ister a weight which is determined from the 
corresponding MRM table entry as follows: 



If there has been no request for selec- 
tion of a specific register, the register 
with the greatest weight is chosen. If two 
or more registers have the same weight and 
that weight is greater than 6, the register 
with the smallest register number is chos- 
en; however, if the smallest register num- 
ber among the two or more eqxially weight 
registers is 1, then the next higher num- 
bered register with the same weight is 
taken. If a request for a specific regis- 
ter has been made, that register is chosen, 
regardless of its relative weight. 

If the chosen register has a weight 
greater than 2, the routine FLUSH is called 
to reset the register storage for all quan- 
tities in the chosen register and to 
initialize the corresponding MRM Table 
entry. The initialization causes the 
entire MRM table entry to be cleared except 
for the MSL and BUSY flags which are left 
raised. 

If the chosen register has a weight 
equal to either 1 or 2 , the entire set of 
register weights is examined to determine 
if there is an empty register (weight = 9) . 
If there is an empty register, FLUSH is 
called to transfer the register contents to 
storage, to transfer the corresponding MRM 
table entry contents from the chosen regis- 
ter to the empty register, and to initia- 
lize the chosen register. An LR instruc- 
tion is generated to move the contents of 
the chosen register. If there is not an 
empty register, FNDWS is called to assign a 
temporary to the quantity in the chosen 
register. The MRM Table is searched to 
find an adcon which covers the temporary 
assigned. If there is such an adcon, an 
instruction is generated to store the chos- 
en register. If there is no temporary- 
covering adcon in a register, the register 
weights are examined, the largest weight 
which exceeds 2 is chosen, and the 
temporary -covering adcon is loaded into 
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that register and assigned to the corre- 
sponding MRM Table entry. The chosen reg- 
ister is then stored and its MRM Table 

entry initialized. If, however, no regis- 
ter contains such an adcon and no register 
weight exceeds 2, an escape n^echanisir: is 
used. 

A Load Register instruction is generated 
to move the contents of the chosen register 

to register 0. The temporary- covering 
adcon is loaded into the chosen register 
and used from there to cover the store of 

register into temporary. Finally, FLUSH 
is called to initialize the chosen 
register. 



CEKNH - — Select Even/Odd General Register 
Pair (SELDR ) 

SELDR is entered to select optimally an 
even/odd pair of general registers. See 
Chart GC, 



¥alue in 

PI CV) 
0<V<6 
10<V<li| 

V = 16 

V = 18 



Meaning 
Select register niimber V. 
Select register pair CV-10)/ CV~8) , 

Select either register pair. 
Select any one register. 



EXITS : Normal exit only. Parairieter regis- 
ter PI contains the number of the register 
selected or the number of the lower- 
numbered member of the register pair 
selected. 

OPERATION ; If a specific register is 
requested, SELFR determines whether that 
register, or the register pair containing 
that register, must be stored. If storing 
is not necessary, the register storage is 
cleared, and the MRMFR table entry is 
initialized by raising its MSL and BUSY 
flags and clearing the rest of the entry. 
If the registers mu.st be stored, temporary 
storage is assigned to the quantity in the 
register and instructions are generated to 
perform the storages. 



ENTRIES: The entry point is CEKNHl. Pa- 
rameter registers Pi and P2 may be used to 
specify as many as two registers that must 
be excluded from consideration in the 
selection process. Each of 'ihe parameter 
registers must either contai?i 0, indicating 
no exclusion, or a number greater than 
and less than 16, indicating that the cor- 
responding general register should be 
excluded. 



If no choice of registers has been spec- 
ified, SELFR assigns weights to each reg- 
ister according to its contents and either 
chooses the single register having the 
highest weight or the register pair having 
the highest combined weight, as appropri- 
ate. The selected registers are then 
treated as if they were specifically 
requested, as described above. 



EXITS : Normal exit only. Parameter regis- 
ter PI contains the number of the even 
member of the selected even/odd register 
pair. 



OPERIkTION ; A weight is assigned to each 
register in accordance with its contents. 
The weights are then combined in pairs to 
give a combined weight for each even/odd 
register pair- If a member of any pair has 
been excluded from consideration, the pair 
is given weight 0. The register pair with 
the largest combined weight is selected. 
SELSR is invoked to select specifically 
each member of the pair, thereby making the 
pair available for use. 



CEKMM — Make Initial Assignment to General 
Register (ASAR) 

ASAR is used to record in an MRM table 
entry the assignment of a quantity to the 

corresponding general register. See Chart 
GE. 

ENTRIES : The entry point is CEKMMl. Pa- 
rameter registers Pi through P6 contain the 

following : 

PI Register number to be assigned. 

P2 Expression tree ID of quantity 

being assigned (or 4 if the quan- 
tity being assigned is an address 
generated with a BASR 
instruction) . 



CEKMQ — Select Floating Recfister (SELFR) 

SELFR is used to select a floating-point 
register or to select a pair of floating- 
point registers (either registers and 2 
or registers 4 and 6) . See Chart GD- 



ENTRIES ; The entry point is CEKMQl . Pa- 
rameter register PI contains a number which 
indicates the kind of selection desired: 



P3 Expression sign. 

P4 Pointer to name table, expression 
tree, or symbol table, according 

to ID. 

P5 Displacement — applicable only if 
quantity is a variable. 

P6 Type ■ — • applicable only if quanti- 
ty is a variable. 
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EXITS : Normal exit only. Parameter regis- 
ter P6 contains the address of the MRM 

table entry that ASAR made. 

OPERATION : ASAR sets the MRM, table initial 
entry fields to the ID of the quantity to 
be assigned and clears the MSL flag. In 
addition, the register storage entry is 
made in the name table or expression tree 
if the quantity being assigned is either a 
common expression or an operator, 
respectively. 



CEKMN — Make Synonym Assignment to General 
Register CASARS) 

ASARS is used to record the assignment 
of a quantity as a synonym entry for a 
given general register. See Chart GF. 

ENTRIES : The entry point is CEKMNl. Pa- 
rameter registers PI through P6 contain the 
following: 

Pi Register member to be assigned. 

P2 Expression tree ID of quantity 

being assigned Cor 4 if the quan- 
tity being assigned is an address 
generated with a BASR 
instruction) • 

P3 Pointer to name table, expression 
tree, or symbol table, according 
to ID. 

P4 Expression sign. 

P5 Displacement -™ applicable only if 
quantity is a variable. 

P6 Type — applicable only if quanti- 
ty is a variable. 

EXITS ; Normal exit only. Parameter regis- 
ter P6 contains the address of the MRM 
table entry that ASARS made. 

OPERATION ; ASARS sets the fields of an MRM, 
table synonym entry to the ID of the quan- 
tity to be assigned. If there is an inac- 
tive synonym entry, the first synonym entry 

is used. In the latter case, the register 

storage is cleared for the quantity being 
replaced. 

CEKMO — Make Initial Assignment to 
Floating-Point Register (ASFR) 

,ASFR is used to record in an MRMFR table 
entry the assignment of a quantity to the 
corresponding floating-point register. 

ENTRIES : The entry point is CEKMOl. Pa- 
rameter registers PI through P6 contain the 
following: 



PI Register number to be assigned. 

P2 Expression Tree ID of quantity 

being assigned Cor 4 if the quan- 
tity being assigned is an address 

generated with a BASR 
instruction) . 

P3 Pointer to name table, expression 
tree, or symbol, table, according 
to ID. 

,P4 Expression sign. 

P5 Displacement -- applicable only if 
quantity is a variable. 

P6 Type -- applicable only if quanti- 
ty is a variable. 



EXITS ; Normal exit only. Parameter regis- 
ter P6 contains the address of the MRMFR 
table entry that ASFR made. 



OPERATION : ASFR sets the MRMFR table ini- 
tial entry fields to the ID of the quantity 
to be assigned and clears the ICL flag. In 
addition, the register storage entry is 
made in the name table or expression tree 
if the quantity being assigned is either a 
common expression or an operation, 
respectively. 



CEKMP — Make Synonym Assignment to 
Floating Register CASFRS) 

ASFRS is used to record the assignment 

of a quantity as a synonym entry for a 
given floating-point register- See Chart 
GG. 

ENTRIES ; The entry point is CEKMPl. Pa- 
rameter registers Pi through P6 contain the 
following: 

Pi Register number to be assigned. 

P2 Expression tree ID of quantity 

being assigned Cor 4 if the quan- 
tity being assigned is an address 
generated with a BASR 
instruction) . 

P3 Pointer to name table, expression 
tree, or symbol table, according 
to ID. 

P4 Expression sign. 

P5 Displacement — applicable only if 
quantity is a variable. 

P6 Type -- applicable only if quanti- 
ty is a variable. 
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EXITS: Normal exit only. Parameter regis- 
ter P6 contains the address of the MRMFR 
table entry that ASFRS made. 



OPERATION: 



ASFRS sets the fields of an 



MRMFR table synonym entry to the ID of the 

quantity to be assigned. If there is an 
inactive synonym entry, the first sucn 
entry is used. If there is no inactive 
synonym entry, the first synonym entry is 
used. In the latter case, tne register 
storage is cleared for the quantity being 
replaced. 



CEKMT 



Find Temporary Storaq^^"> (FNDWS) 



FNDWS is entered to locate and reserve a 
given number of bytes of object program 
temporary storage. In n bytes; are 
requested, the first of the n contiguous 
bytes assigned will be located at a byte 
address which is an integral raultiple of n. 
See Chart GH. 

ENTRIES : The entry point is CEKMTl. Pa- 
rameter register P2 must contain a 1, 2, 4, 
8, or 16 to indicate the number of bytes of 
temporary storage needed - 

EXITS: Normal exit only. Parameter regis- 
ter P2 contains a symbol table pointer to 
the ad con which must be used co cover a 
reference to the assigned tefuporary 

storage, and parameter register P3 contains 

the displacement to be used in conjunction 
with the adcon. 

OPERATION: Available temporary storage is 
found by searching the temporary storage 
allocation matrix for an n-bit field of O's 
which starts on a bit boundary location 
which is the smallest integral multiple of 
n. The field is filled with I's, and the 
distance in bits from the origin of the 
matrix is computed- This distance repre- 
sents the relative byte address of the tem- 
porary storage location assigned. The 
relative address is converted to a page 
address and a displacement within that 
page. An address constant is filed to 
cover the page. The syEibol table pointer 
for this adcon and the displacement are 
returned to the caller. 

The preceding discussion describes gen- 
erally the process for assigrment of tem- 
porary storage. Actually one of two kinds 
of temporary storage may be assigned 
depending upon the status of the flag 
GLMODE. If the flag is raised, global tem- 
porary storage is assigned; ctherewise, 
local temporary storage is a: signed. 

The GLMODE flag is tested by FNDWS which 
simply decides whether to search the local 
or global half of the tempor^iry storage 
allocation natrix and whether the address 



constant created should cover the local or 
global temporary storage class. 

CEKMX — Release Temporary Storage CRLSWS) 

RLSWS is entered to make a temporary 
storage location available for reuse- See 

Chart GI. 

ENTRIES : The entry point is CEKMXl. Pa- 
rameter register PI contains a if the 
temporary location being released was occu- 
pied by an operator, or a 1 if it was occu- 
pied by a common expression. Accordingly, 
parameter register P2 contains the asso- 
ciated expression tree address or name 
table address. 

EXITS : Normal exit only- 



OPERATION: 
elated displa 
are extracted 
pression tree 
lowed to the 
from which th 
adcon and the 
class are ext 



he adcon pointer, its asso- 
cement, and the operand type 

from the name table or ex- 
The adcon pointer is fol- 
associated symbol table entry 
e storage class covered by the 

location within that storage 
r acted. 



If the storage class covered is global 
temporary, no furthc^r action is taken, and 
RLSWS exits. If the storage class is local 
temporary, a group of bits in the temporary 
storage allocation matrix is cleared. The 
first of these bits is determined from the 
sum of the displacement and address covered 
by the adcon. The number of bits cleared 
is determined from the operand type. 

Two temporary locations are released in 
the above manner if the operand is a common 
expression and the name table flag "secon- 
dary temp assigned" is raised; otherwise, 
only one temporary location is released. 



CEKON 



Register Storage Clear Routine 



CFLUSH) 

FLUSH is invoked to initialize a given 

MRM table entry or to move it from one 
entry to another before initializing it. 

See Chart GJ. 

ENTRIES : The entry point is CEKONl. The 

contents of parameter register P3 are 
treated as follows: 



Contents 


1 



Action 

Initialize a general register. 

Move, then initialize general 

register. 
Initialize a floating-point 

register. 
Move, then initialize a 
floating-point register. 



Parameter register P2 may contain either 
the nuEiber of the register i<*iose MRM/MRMFR 
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Table entry is to be initialized or the 
address of the entry, as desired by the 
caller. Parameter register PI is irrele- 
vant if P3 = or 2; otherwise, it contains 
the number of the register to which a move 
is required, or the associated MRM/MRMFR 
address, again at the option of the caller. 



EXITS : Normal exit only. If only initia- 
lization is required, parameter register P6 
contains the MRM/MRMFR address of the reg- 
ister initialized. If a move and initia- 
lize are required, P6 contains the MRM/ 
MRMFR address of the register to which the 
movement will be made. 



OPERATION : The distinction between regis- 
ter number and MRM/MRMFR address for the 
input quantities is made according to 
whether their values are less than or 
greater than 16, respectively. Each, which 
is a register number, is converted to the 
corresponding MRM/MRMFR address. 



If a move is specified, the entire MRM/ 
MRMFR entry is moved as specified. If the 
register from which the move is made con- 
tains operators or common expressions, the 
corresponding register number fields in the 
name table or expression tree entries are 
altered to reflect the new register 
location. 



ID 


Other Parameters Required 


Usage 





OP, R1, R2 


RR Instruction 


1 


OP, Rl, X2, B2, D2, SYMT 


RX Instruction 


2 


OP, Rl, X2, B2, D2, DISPL 


Local Branck (* + ) 


4 


OP, Rl, X2, B2, D2, SYMT 


Temporary 


5 


OP, Ml, X2, B2, D2, SYMT, ADCON 


Branch- Displace- 
ment Supplied by 
Phase 5 


6 


OP, Rl, R3, B2, D2 


RS Instruction 


7 


Line Number 


Statement Header 


8 


SYMT 


Label Definition 


9 


None 


End Program 



SYMT - Symbol Table Pointer for label or primitive 

Adcon ■- Symbol table pointer for Adcon 

Line Number- Source line number from PF entry 

All other symbols have the accepted System/360 meaning. 



If no move is specified and the register 
which is to be initialized contains opera- 
tors or common expressions, the correspond- 
ing "in register" flags in the expression 
tree or name table are lowered. 

Processing is completed by initializing 
the specified MRM/MRMFR entry. 



CEKNI 



Code File Output Subroutine 



CINSOT) 

INSOT is called whenever an entry is 
made in the code file. See Chart GK. 



ENTRIES ; The entry point is CEKNIl . The 
input parameters to INSOT are 

1. ID in parameter register P2. 

2. OP CLine Number or SYMT with IDs 7 or 
8) in parameter register PI. 

3. All other parameters in a 6-word area 
at INSOTP (in phase's PSECT) in the 
order listed in Figure 34. Each 
parameter occupies one ^^ord and is 
right- justified. 



Figure 34. INSOT Input Parameters 

If storage class is 7 or 8^ the symbol 
table pointer points to the adcon covering 
the temp; otherwise, storage class field is 
0, and Phase 5 obtains actual storage class 
from the symbol table. 

EXITS ; INSOT has two exits: one normal 
return and one error exit. The INSOTP area 
is undisturbed except for INSOTP +17. 

OPERATION: Based upon the contents of 
input parameters, INSOT generates the 
appropriate code file entry (given in 
Appendix A) . INSOT also maintains the size 
of Storage Class 1 in the storage class 
table, and updates the code file top in 
intercom. Label definitions are not 
entered in tne code file if the ISD, memory 
map, and object listing options are all 
off. 



CEKOQ 



Edit for Code File (EDIT) 



EDIT may be used in preparation for 
generation of an RX-type instruction via 
INSOT. Its purpose is to centralize the 
preparation of some of the input parameters 
required by INSOT - 



184 



ENTRIES ; The entry point is CEKOQl . Entry 
is made with the tree address of the 
operand in register P2 . 



EXITS : Exit is made with the operation 
type code in parameter regist<5r P2. The 
ISYM, entry of the INSOT parameter list is 
set according to the following table: 



OPERATION ; EDIT sets input parameters to 
INSOT according to the following table: 



Operand ID Op- Type ISYM' Contents 



Constant 


RX 




Symbol table 
pointer 


Variable 


RX 




Symbol table 

pointer 


Adcon 


RX 




Symbol table 
pointer 


Operator 


temp- 


ref . 


Temp- covering adcon 
pointer 


CSX 


temp. 


ref. 


Temp- covering adcon 
pointer 


Subscript 


RX 




Variable symbol 



Connector table pointer 
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SECTION 7: PHASE 5 



INTRODUCTION 

Phase 5 generates the output of the FOR- 
TRAN compiler. This output can broadly be 
divided into two parts: the object program 
module COPM) and the external listings. 
The object program module consists of: 

1. Loading information Crelocation fac- 
tors ^ external names, etc.). This 

information comprises the program 
module dictionary CPMD) and is used at 
load time by the dynamic loader. 

2. Object text (code, constants, etc.). 

3. An optional list, called the internal 
syndDol dictionary CISD) , of the 
internal symbols in the FORTRAN pro- 
gram for use in checkout with PCS. 

4. A list of external names (entry 
points, subroutine calls, etc.). 

The external listings are produced in 
accordance with options selected by the 
user. It should be noted that the first 
option (of the five listed below) must be 
reguested in order to receive any of the 
other four- The selections are: 

1. A basic output listing which consists 
mainly of the names and sizes of con- 
trol sections in the object program 
module. 

2. An expanded listing of the above to 
include items such as the relative 
locations of labels and variables - 

3. A comprehensive output that, in addi- 
tion to 1 and 2 (above) , lists object 
code and give an assembly- like listing 
of the object code along with comments 
identifying what type item is being 
referenced. This selection also pro- 
duces a listing of adcons, parameter 
lists, and numeric and alphameric 
constants. 

H. A symbol table list which gives all 
the variable names in alphabetical 
order with important attributes. 

5. A cross reference list which gives all 
the variables listed in alphabetical 
order, followed by the labels, in num- 
eric order, showing the line numbers 
where each is defined and referenced. 

Thus, the function of Phase 5 can be 
stated as: generating the OPM (i.e., con- 
structing the PMD, building the object pro- 
gram, and producing the optionally selected 



ISD) and producing various selections of 
external listings. These functions are 
itemized below, together with the routines 
that contribute to their development, 

1. Generating the object program module 

a. The program module dictionary. 
The program module dictionary con- 
sists of heading information and 
one control section dictionary 
CCSD) for each control section in 
the object program. 

BUILD Processes the heading 

information in the PMD. 

COS EC Constructs the control 

section dictionary for the 
code control section. 

PRSEC Builds the control section 
dictionary for the proto- 
type control section - 

CMSEC Constructs one control 
section dictionary for 
each COMMON. 

SPECS Makes entries in the con- 
trol section dictionary of 
the control section con- 
taining any preset data 
present. 

b. The Object Program 

BUILD Determines the type of 

program under construction 
and initializes, communi- 
cates with other needed 
routines, and post- 
processes the object 
program. 

CMSEC Builds one control section 
for each COMMON (named or 
blank) present. 

SPECS Inserts preset data (when 
present) into the text of 
the appropriate control 
section. 

COSEC Constructs the code con- 
trol section which con- 
sists of code and numeric 

constants. 

PRSEC Constructs the prototype 
control section. (The 
module PRSEC should be 
consulted if additional 
information is desired.) 
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c. Internal Symbol Dictionary 

COSEC Determines statement num- 
ber entries and the number 
of control sections in the 
object program module and 
enters them into the ISD. 

ASSIST Responsible for all 

entries in the ISD except 
for those made by COSEC. 

Producing various selections of 
external listings 



EDIT 



SYMSRT 



CRFSRT 



PHEAD 



Optionally produces up to 
three levels of output 
documentation. The rou- 
tine itself and Figure 35 
should be consulted if 
more information is 
desired. 

Sorts and outputs an 
alphabetical listing of 
items in the symbol table 
along with important 
attributes relating to the 
symbol . 

Produces a listing of all 
variables in alphabetical 
order, followed by the 
labels in numeric order, 
indicating the statement 
numbers where each is 
defined and referenced- 

Ejects to a new page and 
outputs the page heading, 
which consists of module 
name, data, and page num- 
ber. PHEM) is called by 
the above three routines. 



PMD Heading 

1. Length of PMD in bytes 

This length does not include the PMD 

preface. 

2. Diagnostic Code CI byte) 

The Diagnostic code indicates the 
highest level diagnostic encountered 
during generation of the module by the 
language processor that created it. 

3. PCS Communication Indicator CI byte) 

This is a 1-byte field ^rtiich is used 
by the program checkout subsystotti 
(PCS) . Currently defined settings are 
as follows Cbits are numbered from 
left to right starting with 0) : 


















7 


i 








mMmm 




i 


k i 


i 


ii 

















Version ID Flag 

PCS CcffTimunication Flag 

Link Editor Flag 

ISO Flag 



Bit - Module has been altered by a 

non-source modification. That 
is, a language processor did 
not make the change. 

Bit 1 - Module has an ISD associated. 
This bit is set by the proces- 
sor creating the PMD. 

Bit 2 - Module was produced by link 
editing. This bit is set by 
the Link Editor. 



OBJECT PROGRAM MODULE CQPM) 

The output from the compiler is known as 
an object program module. This is composed 
of a program module dictionary CPMD), text, 
and internal symbol dictionary CISD) , and 
external name list CENL) . 



Bit 3 - PCS is to be called before 
module is dynamically 
unlinked. This bit is set by 
PCS. 

Bit 5 - Module was produced by the 
FOR'mAN compiler. 



PROGRAM MODULE DICTIONARY CFMD) 

Each PMD consists of one PMD heading 
plus as many control section dictionaries 
CCSD) as there are control sections in the 
module. Address pointers in the PMD are 
initially relative to the beginning of the 
PMD itself Cnot the PMD preface) , except 
where otherwise specified. Some fields in 
the PMD are filled in by the loader. These 
are not set by the compiler. The PMD for- 
mat is shown in Figure 35. 



Bit 6 - FORTRAN module is a main pro- 
gram, not a SUBROUTINE, FUNC- 
TION, or BLOCK DATA 
subprogram. 

Bit 7 - Version ID indicator. If this 
bit is set, the module version 
ID is to be interpreted as a 
64-bit binary ntimber which is 
the creation date of the 
module. If this bit is not 
set, the version ID is eight 
alphameric EBCDIC characters. 
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The PMD 
Preface is 
Prefixed 
here by 
either 
STARTUP 
or the 
Dynamic 
Loader. 



PMD 

Headin 



r 




Length of PMD in Bytes 


1 


Diag. 
Code 


Flags 


Length of PMD 
Heading in Bytes 


2 


4 - Character !. D. Name 


3 






Version ID 




4 


of Module 


5 


No. 


REFs 
Poi 


for Entry 
nt 


NO. Mods, for 
Entry Point 


6 


Alphameric Name 


7 






of Module 




8 


Value of DEF 


9 


R-Value Displacement 
(Created by LINK EDITOR) 


10 


[CSD LINK] 


n 


(Reserved for Future Use) 


12 


[Search Link] 


13 






Alphameric Name 


-- 


14 






of REF 


15 


[Value of REf] 


16 


[R-VolueofREF] 


17 


[CSD link] 


18 


(Reserved for Future Use) 




- 








J 



CSD 
Heading 



For Deck 
Punchout 



DEF for 
Standard 
Entry Point 



Definition 
Table 



Definition (s) 
Relative 
Absolute 
Complex 



Number Bytes in CSD 



Length of Control Section 
in Bytes 



Page Number in Text of Page 
of CS Text 



[PMD Link] 



(Reserved) 



No. Relocatable 
DEFs 



No. Comple: 

DEFs 



Attributes of CS. 



[No. REFs into this 

Control Section (user 

count) 1 



No. Absolute 
DEFs 



No. of External and 
Internal REFs in 
Reference Table 



No. Pages of Text 



Alphameric Nai 



Value of DEF 
(Modified by Loader) 



R-Value Displacement 
(Modified by Loader) 



[CSD Link] 



(Reserved for Future Use) 



[Search Link] 



Modifier 
Pointers for 
Complex DEFs 



Modifiers foi 
Complex DEFs 



Modifier Pointers 
for External REFs 



Modifiers fot 
External REFs 



Modifier Pointers 
for Internal REFs 



Modifiers for 
Internal REFs 



Virtual Memory 
Poge Table 



, REF (s) for 
Entry Point 



Referenc* 
Table 



Modifiei (s) for 
Entry Point 



Alphameric Nome 



[Value of REF ] 



[R-Value of REF] 



[CSD LInk)J 



(Reserved for Future Use) 



No. Modifiers for 
Page of PMD 


Relative Location of First 
Modifier for PMD Page 


L J 
f 1 


No. Modifiers for 
Page x of PMD 


Relative Location of First 
Modifier for PMD Page x 


L 


REF Number 


T 


Byte 


L J 
f 1 


No. Modifiers for 
Page of Text 


Relative Location of First 
Modifier for Text Page 


L J 
f 1 


No. Modifiers for 
Page y of Text 


Relative Location of First 
Modifier for Text Page y 


L 


REF Number 


T 


Byte 


f 1 


No. Modifiers for 
Page of Text 


Relative Location of First 

Modifier for Text Page 


f 1 


No. Modifiers for 
Page z of Text 


Relative Location of First 
Modifier for Text Page z 
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REF Number 


T 


Byte 


L i 
f 1 


Page No. in Text ■ 
of Virtual Memory Page 


Page No. in Text 
of Virtual Memory Page 1 


L 1 


Page No. In Text of 
Virtual Memoiy Page'm-l' 


Page No. In Text of 
Virtual Memory Page 'm' 




Remain! 


ng CSD 


^ 



Complex DEF RLD 

(Note: Page x is the last 
PMD page for which there 

are any Complex 
DEF modifiers) 



External REF RLD 

(Note: Page y Is the last 
text page for which there 
are any External REF 

modifiers) 



internal REF RLD 

(Note: Poge z Is the last 
text page for which there 
are any Internal REF 
modifiers) 



ote: Bracketed [ items ore filled in by the Dynamic Loader. 
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4. Length of PIO Heading 



10. 



REFCs) for Entry Point 



This is the length in bytes of the PMD 
heading. 

5. *l -Character ID Name 

The 4-character ID nairie is supplied by 
the tiser to serve as deck identifica- 
tion if the module is punched into 

cards. This field is currently 
unus ed . 

6« Version ID 

See item 3 (bit 7 descri.ption) for 
interpretation of version ID. 

7. Number of REFs for the Standard Entry 
Point 

The DEF for the standard entry point 
is always treated as a complex DEF. 
This field contains the number of 

REFs. It may be zero. 

8. Number of Modifiers for the Standard 
Entry Point 

This field contains the number of 
modifiers that are to be used to com- 
pute the DEF for the standard entry 
point. 

9. DEF for Standard Entry Point 

This 7- word entry describes the DEF 
for the standard entry point of the 
module. It has the same form as the 
individual DEF entries within the 
CSDs. The standard entry point DEF 
for the module is considered to belong 
to the first PSECT of the module and 
is treated the same as a complex DEF 
whose ENTRY statement appears within 
that PSECT. If no PSEtn is declared, 
the standard entry point will be asso- 
ciated with the first CSECT instead- 
This DEF entry contains the following 
subfields which are described under 
"Control Section Dictionary." 

a. Alphameric name of raodule 

b. Value of DEF 

c. R- Value displacemc^nt 

d. CSD link 

e. Reserved for futu2*e use 

f. Search link 



These correspond to the REFCs) for 
complex DBFs within a CSD. 

11. Modifier (s) for Entry Point 

These correspond to the modifier (s) 
for complex DEFs within a CSD. 

Control Section Dictionary CCSD) 

The control section dictionary (see 
Figure 35 comprises the following 

components : 

1. CSD Heading 

2. Definition Table 

3. Reference Table 

4. Relocation Dictionaries CRIDs) 

5. Virtual Memory Page Table 

CSD Heading 

1. Number Bytes in CSD 

This field specifies the length of the 
control section dictionary in bytes. 

2. Length of Control Section in Bytes 

This specifies the virtual storage 
span of the control section. The 
length of the virtual storage page 
table is derived from this length. 
For example, if the length of the con- 
trol section is 8192, the virtual 
storage page table will contain two 
pages; but if the length is 8193 
bytes, the virtual storage page table 
will contain three pages. This value 
will be equal to the highest location 
counter value assigned by the language 
processor, plus 1. 

3. Page Number in Text of Page of CS 
Text 

The text for each control section in 
the module occupies an integral number 
of pages in its resident data set. 
The text pages for all control sec- 
tions in a module are contiguous. 
This number is the page number, rela- 
tive to the first page of text for 
this module , of the first page of text 
for this control section- (Numbering 
begins with 0.) 

4. Version ID 



The alphameric naiBe is also the name 
of the module. 



This is a 6ii-bit binary number which 

is the creation date of the control 
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section expressed as the number of 
microseconds that have elapsed from 
March 1, 1900, until the time of con- 
trol section creation, 

5. PMD Link 

The PMD link is filled in by the load- 
er. It points to the beginning of the 
PMD preface. 

6. Number of Implicit References to this 
Control Section (User Count) 



c. Read-only (Bit 13 on) 



Read-only specifies that the con- 
trol section may not be stored 
into. It causes storage protec- 
tion by means of a storage class B 
assignnent to all pages of the 
control section. Non-read-only 
and nonprivileged control sections 
are assigned storage class A. 

Public (Bit 12 on) 



This is a count of the number of REF 
entries which refer to this control 
section and are linked to this CSD 
through their CSD link. It is com- 
puted by the loader. It includes both 
external and internal references. 

7. Number of Relocatable Definitions 

This is the number of relocatable 
definitions in the definition table. 
It is always at least 1, namely, the 
control section DEF. 

8. Number of Absolute Definitions 

This is the number of absolute defini- 
tions in the definition table. It may 
be zero. 

9. Number of Complex Definitions 

This is the number of complex defini- 
tions in the definition table. It may 

be zero. 

10. Number of References from this CSD 

This is the sum of external and 
internal references in the reference 
table. It may be zero. 

11. Attributes 

This word has one bit set for each 
attribute possessed by the control 
section. currently defined attributes 
are shown below. Bits are numbered 
from left to right starting with 0. 
Bit 15 is not used: 

a. Fixed- Length (Bit 14 off) 

A fixed-length control section 
will be allocated a fixed number 
of pages at load time- 

b. Variable-Length (Bit 14 on) 

A variable-length control section 
is a section of indeterminate 
length and will be allocated pages 
in excess of the length stated in 
the CSD heading. 



Control sec-tions are not shared by 
control section name alone. A 
PUBLIC control section of a module 
residing in a given data set 
(library) is shared if another 
user has access to the same data 
set and module. Control sections 
of a given module need not all be 
PUBLIC or non-PUBLIC. Fixed- 
length PUBLIC control sections 
with the same attributes are 
assigned storage in the same as- 
signment. A PUBLIC control sec- 
tion should never contain relocat- 
able adcons (A, V, or R type) . 

e. PSECT (Bit 11 on) 

If this bit is set, the dynamic 
loader overrides the system pack- 
ing indicator and inserts this 
control section as packed. 

f. COMMON (Bit 10) 

A COMMON section is a control sec- 
tion coiranon to all modules in 
which it is declared. COMMON sec- 
tions are more fully discussed in 
the linkage editor manual and the 
assembler manual. 

COBMON sections are of two types: 

(1) Named COMMON sections (those 
with a name not all blanks) . 
These are treated as fixed- 
length sections. 

C2) Blank COMMON sections, whose 
name consists of eight blanks . 

FORTRAN blank COMMON is assigned 
the VARIABLE and COMMON attributes 
by the FORTRAN compiler. 

The treatment of blank COMMON sec- 
tions differs from that of blank 
non- COMMON sections. Control sec- 
tion rejection is instituted 
between blank COMMON sections of 
different modules whereas blank 
non-COMMON sections of different 
modules are treated as independent 
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control sections. The latter are 
called unnamed control sections. 



declared an entry point in the control sec- 
tion in which the name is defined. 



g. Privileged CBit 9 on) 

A control section with a v,/rivi- 

leged attribute is assigned 
storage key C which provides fetch 
as well as store protect. This 

attribute overrides read-only. 

Anything in a privileged control 
section may be referenced only 
when the PSW key is zero. 

h. SYSTEM (Bit 8 on) 

Any external symbol that appears 
in a control section which has the 
SYSTEM attribute cannot be 
referenced by a user program 
unless the symbol begins with 
"SYS". Conversely, no reference 
from a control section with a sys- 
tem attribute may be to a "user" 
symbol. 

i. Public Name CBit on) 

This is used only b^^ the dynamic 
loader to specify nonblank control 
sections whose names appear in the 
SDST (shared data set table). The 
first such control section will 
appear in the SDST under the 
nodule name. A control section 
may be indicated as both having a 
public name and rejected. 

12. Number of Pages of Text 

This specifies the numt»er of pages of 
text for this control section in the 
data set. It should be noted that 
this generally does not correspond to 

the number of pages in the virtual 
storage page table. It cannot, of 
course, be larger. 



Definition Table 

The definition table is r.iade up of 7- 
word entries, one for each external defini- 
tion in the current control section. 
Definitions are grouped as relocatable, 
absolute, and complex in that order. The 
first definition in the table is the name 
of the current control sectxon. 

Relocatable definitions are external 
definitions whose values Em.j be computed as 
the sum of the origin of the control sec- 
tion wherein they appear, and a constant. 

.An absolute definition is an EQU item 
with an absolute value whose name has been 



A complc^x definition is either an EQD 
item with a complex relocatable value; 
i.e., containing external symboKs), or a 

simple relocatable definition whose ENTRY 
statement appeared within a named section 

other than the section in which it is 
defined. The definition entry appears 

within the CSD of the control section which 
contains the ENTRY statement. (Note that 
the origin of the same control section is 
the R- value for the DEF- ) The complex DEF 
is required in this case, with one REF 
entry that names the control section in 
which the DEF symbol is actually defined. 

Each DEF in the definition table con- 
tains the following entries: 

1. Alphameric Name of DEF 

This field contains the 8 -character 
alphameric name of the DEF. 

2. Value of DEF 

The value of the DEF is set by FORTRAN 
and is modified by the loader in the 
case of complex and relocatable 
definitions. For relocatable DEFs the 
value portion of the definition entry 
contains the displacement value of the 
symbol relative to the base of its 
control section. 

For absolute DEFs this entry contains 
the absolute value; for complex DEFs 
it contains the absolute portion of 
the DEF value, which may be zero. 

3. R- Value Displacement 

The "displacement for R- value" word 
contains the displacement of the orig- 
inal defining control section origin 
with respect to the head of the con- 
trol section within the definition now 
appears. This is required to compute 
valid R- values for control sections 
which have been COMBINED by Linkage 
Editing- In creating the PMD, only 
the Link Editor will ever produce a 
nonzero value in this word. 

14. CSD Link 

The CSD link is initially zero. It is 
filled in by the loader when the con- 
trol section is loaded as a pointer to 
the beginning of the CSD in which this 
DEF appears, providing neither the DEF 
nor the control section has been 
rejected. 

5. For future use. 
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Search Link 



This field is filled by the hash 
search rootine of the loader. It con- 
tains the address of the beginning of 
the next DBF entry which hashes to the 
same value. It contains zero if 
thereare no more DEFs with the same 
hash value in this chain. 



1- RLD for complex definitions 

2. RLD for internal references 

3, RLD for external references 

Each RLD has the same format consisting 
of modifier pointers and modifiers. The 
RLD for complex definitions differs in that 
pages n^ntioned in this table are pages of 
the PMD rather than the text. 



Reference Table 

The reference table is made up of 6~%^>rd 
entries, one for each external symbol 
referenced within the control section. 
Each entry contains the following: 

1. Alphameric Name of REF 

This field contains the 8 -character 
alphameric name of the REF- 

2. ¥alue of REF 

This is filled in by the loader- It 
contains the value of the DEF to which 
the REF refers. If the DEF is unde- 
fined, it contains the address of a 
portion of virtual storage wherein 
reference is illegal. 

3. R- Value REF 

This is filled in by the loader. It 
contains, the virtual storage address 
of the beginning of the control sec- 
tion wherein the DEF appears. This 
value is obtained from the *'R- -value 
displacement" word of the satisfying 
DEF entry. 

If the DEF is undefined, this word 
contains the address of a portion of 
virtual storage wherein reference is 
illegal. 

4. CSD Link 

This pointer, initially zero, is 
filled by the dynamic loader- It 
points to the beginning of the CSD 

wherein the DEF which defines this REF 
appears. If a corresponding DEF could 

not be found upon the appearance of a 
REF, the CSD link is to the beginning 

of the CSD wherein the REF itself 
appears. 

5. Reserved for future use. 



Relocation Dictionary (RLD) 

Three RLDs appear in each control sec- 
tion dictionary: 



Modifier Pointer 

Modifier pointers are used to designate 
the application of modifiers to adcons on 
appropriate pages of text (or of the PMD 
for complex DEFs) . The first modifier 
pointer applies to the first page; the 
second modifier pointer, to the second 
page; etc. For an RLD there always exists 
at least one modifier pointer. However, 
there need not necessarily be a modifier 
pointer for each page of text; the modifier 
pointers may be ended at the last text page 
for which there exists any modifier. 

The modifier pointers consists of two 
fields, in the left and right half words . 

Left- ha If - Number of modifiers for page 

This field contains the number 
of modifiers that apply in 

this page. 

Right-half - Location of first modifier for 
this page 

This contains the location in 
bytes relative to the right 
half of the pointer itself for 
the first modifier for this 
page. If there are none, it 
points tO' the location where 
one would have appeared if 
there were any. 

A special note should be made 
of the technique for determin- 
ing the length of an RLD. In 
the right half of the first 
pointer for an RLD, is the 
location of the first modifier 
for this page. In the word 
preceding the first modifier 
word is the last modifier 
pointer for the RLD. By 
adding the location of the 
right half (of the last point- 
er) to the contents of the 
right half (of the last point- 
er) , one gets the beginning of 
the last set of modifiers . 
Adding to this four times the 
number of modifiers in the 
last set, one gets the end of 
the RLD. 
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Modifier 

The modifiers are each a fiillword and 
are divided into four fields: 
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31 
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L (2 bits) is the length in bytes of 
the adcon to be modified, h value of 
zero indicates a fullword C4 bytes). 

Ref Number 

Reference number (14 bits) is the 
ordinal number in this CSD's reference 
table of the reference whose defini- 
tion value is to be used in modifying 
the adcon. References are numbered 
starting with zero. 



T (4 bits) is the operation to be per- 
formed in modifying the adcon by the 
reference value. 

The values of T currently defined are as 
follows: 

a. Addition CT = 1) 

The definition value of the 
reference at "Reference Number" is 
added to the field of L bytes 
starting at the indicated byte of 
the page to which the modifier 
applies. 

b. Subtraction CT = 2) 

Same as addition, except read 

* subtracted from" for "added to." 

c. R-value CT =3) 

The value from the "R-value" word 
of the REF is storcid into the 
field of length L ciccording to the 
"Byte" field. 

Byte 

Byte C12 bits) is the displacement in 
bytes (from the origin of its original 
containing page) of the adcon to be 
modified. It should be noted that 
since PMDs are packed co word boun- 
daries, this displacement will be 
added to an address for complex DBFs 
which generally is not a page 
boundary. 

RID for Complex Definitions 

The format of these modifiers is as 
described above. These modifiers apply to 



the values of complex definitions; that is, 
the byte addresses in the modifier will be 
to the value words of complex DEF entries 
in the definition table, and the page num- 
bers in the modifier pointers are for pages 
of the program module dictionary itself. 



RLD for Text External Reference 

This relocation dictionary is in the 
same form as described above. It has one 
pointer for each page of program text up to 
that text page which is the last to contain 
an adcon, and appropriate modifiers for 
each adcon in the text which refers to a 
symbol defined externally to this module. 
The page numbers are based on the first 
page for this control section, beginning 
with 0. 

RLD for Text Internal Reference 

This is identical to RID for text 
external reference above, except that the 
modifiers are to adcons in the text which 
reference symbols defined within this 
module, such as control section names. 
This permits communication between control 
sections of the same module that may be 
allocated noncontiguous virtual storage. 

¥irtuai Memory Page Table CVMPT) 

This table has a half word for each page 
of virtual storage beginning with page 

and continuing upward in order. 

The contents of each entry will be 

either: 

1. All bits if the corresponding page is 
empty as a result of a DS or ORG 

statement. 

2. The number of the page in the text 
relative to the beginning of text for 
this control section if the page con- 
tains code or data. This value multi- 
plied by 4 becomes an index into both 
the external and internal RIDs and is 
used to select the correct modifier 
pointer word for adcon relocation. 

This table is the means by which the 
text of the control section is related to 
the virtual storage assigned the control 
section. This is necessitated by the fact 
that language processors do not necessarily 
output a byte of text for each byte of vir- 
tual storage assigned; that is, large ORG 
and DS statements may result in pages of 
text being skipped. 

If, for example, a source program were 

to begin with 



ORG 



10000 
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there woald be no text ootput for the first 
two pages of virtual storage, and the first 

page of text would correspond to the third 
page of the user's virtual storage. The 
first two VMPT entries would be all bits, 
and the third would contain zero. Within a 
page, however, the bytes of text correspond 
directly to the bytes of virtual storage. 
Thus, in the example above^ the first page 
of text would represent virtual storage 
locations 8192-12287, and the first 1808 
bytes of the page of text would be vacant 
ClOOOO-8192 = 1808). The pages of text 
will always begin on page boundaries within 
the text module. 



INTERNAL SYMBOL DICTIONARY CISD) 

The ISD (see Figure 36) has four sec- 
tions: a heading, section name table, sta- 
tement number table, and a symbol table- 



Headinq 
Word 1 

Word 2 



Bits 0-15 contain the indica- 
tor (8) identifying the ISD as 
FORTRAN produced. 

The length of the ISD in 
bytes. 

Word 3 - Contains a link to the start 
of the symbol table. 

Word *l - The number of entries in the 
section name table. 

Word 5 - The number of entries in the 
statement number table- 

Word 6 - The number of entries in the 
symbol table. 

Section Name Table 

All control section names and their ver- 
sion identifications (CSECT, PSECT, labeled 
and blank COMMONS) are listed here. The 
last two entries are the CS,ECT and the 
PSECT. 

Statement Number Table 



^:;:' J 



.. ^ 
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Figure 36. FORTRAN Internal Symbol 
Dictionary 



For each executable statement in the 
program, FORTRAN inserts an entry contain- 
ing the statement number and the offset 
from the CSECT base. Entries for unnum- 
bered statements contain a statement number 
of zero. The entries are arranged in 
source order. 

Symbol Ta bl e 

The FORT'RAN compiler inserts into the 
symbol table a defining item for all 
variables, section names, and FORMAT state- 



ment numbers. Entries are grouped accord- 
ing to control section and are ordered 
within each group by ascending location 
counter value. 



Name 



Type 



Two words containing the 
alphameric name of the 
variable. 

Identifies the type of 
variable as: 
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Type 


Code 


Section Naroe 


3 


Integer 


4 


Real NuE'ber 


5 


Character Constant. 


6 


(FORMAT) 




Complex Numi^er 


13 


Logical 


14 



In addition the second hign-order list 
in the TYPE field indicates if the variable 
is a formal argument. Thus, a type code 
'i4-5' designates the appearance of a real 
variable as a formal argument . 



Number of 
Dimensions 



Length of 
Entry 



Section Number 

Displacement 
Length 



Dimension 
Type 



Dimension 



'- The number of dimensions 
of a dimensioned variable 
CO for nondimensioned 
variables) . 

- Length in b^tes for this 
symbol entr>=~. 

A number corresponding to 
the order of the names in 
the section table of the 
ISD. 

The offset :,-n bytes from 
the control section base« 

Length attribute of the 
variable. 

"00' for constant 
dimension '32' for adjust- 
able dimension of type 
Integer* 2 

•Oil' for adjustable dimen- 
sion of type Integer*i| 

For each dimension of an 
array the dimension pro- 
duct value is listed. The 
value of the nth dimension 
factor is the byte length 
times the product of the 
sizes of dimensions 1 
through n. Fox arrays 
that are formal arguments 
the dimension factor is: 

1. The dimension itself, 
if constant. 

2. Offset in bytes of the 
appropriate adcon from 
the base of object 
progran's PSECT, if 
adjustable. 



coded labels begin with the letters CEKS; 
the fifth letter identifies a specific rou- 
tine. Each of the routines in Phase 5 has 
a single entry point. When reference is 
made to a compiler executive routine or 
entry point, the mnemonic title is used, 
followed immediately by the corresponding 
coded label enclosed with parentheses. 

There are no hardware configuration 
requiren^nts for any of the Phase 5 rou- 
tines. Theiy are all reenterable, nonresi- 
dent, nonprivileged, and closed. PHASES 
(Output Generator -- CEKSA) is entered by 
standard linkage; all other Phase 5 rou- 
tines are entered by restricted linkage. 

The relationships of routines in this 
phase are shown in the following nesting 
chart (Figure 37) and decision table (Table 
29) . The relationships are shown in terms 
of levels; a called routine is considered 
to be one level lower than the calling rou- 
tine. Output Generator is considered to be 
level 1. 



CEKSA 



FORTRAN Compiler Output Generator 



C PHASE 5) 

PHASE5 consists of terminal operations 
of the FORTRAN compiler. Its purpose is to 

1. Build the object program text and the 
associated program module dictionary 
CPMD) . 

2. Construct an internal symbol dic- 
tionary CISD) . 

3. Procuce user- selected documentation. 

4. (.Generate entry point table. 

ENTRIES : The only entry into PHASES is 
from the Compiler Executive, via standard 
linkage, at entry point CEKSAl. PHASES 
expects to receive the base of the Intercom 
as a £:ara meter. 

EXITS : Before exiting back to the Exec, 
PHASES checks the upper limit for the fol- 
lowing it.em.s: 

1. object program text. 

2. Program module dictionary. 

3. Internal symbol dictionary. 

4. External name table. 



ROUTINE DESCRIPTIONS 

Phase 5 routines bear mnemonic titles as 
well as coded labels. The 5- character 



If the upper limit has been exceeded, 
PHASES will set the error code Cin the 
intercom) to "Fatal" and output a diagnos- 
tic message. 
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Level 
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Figure 37. Phase 5 Nesting Chart 

Table 29. Phase 5 Decision Table (Part 1 of 3) 

Routine: — ■ ^-Phase 5 — — • — • — ~ 

J. . ^ ^_. 



-Level: 



Routine 
PHASES 



Usage 



Called 

Routines 



Calling Conditions 



H 



To control the overall 
operations of Phase 5, 



BUILD 



ASSIST 



EDIT 



SYMSRT 



CRFSRT 



RDM 

CCEKTE) 
PHEAD 

CONCV 

OLR 
(CEKTHE) 



Entered for every compilation to produce 
text and the Program Module Dictionary 
(PMD) . 

Entered when the option is requested by 
user to generate the Internal Symbol 
Dictionary CISD) . 

Entered when the option is requested by 
user to produce and output the object 
program module information, the memory 
map, and the object code listing. 

Entered when the option is requested by 
the user to produce and output the list- 
ing of the sorted Symbol Table 
information. 

Entered when the option is requested by 
the user to produce and output the Cross 
Reference Listing. 

Entered when an error condition is 
encountered. 

To eject a page and print the heading for 
the Table of Initialized Variables. 

Entered to convert integer, real, or com- 
plex values for printing. 

An Exec routine entered to print each line 
of the Table of Initialized Variables. 
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Table 29. 



Phase 5 Decision Tdble (Part 2 of 3) 



Routine: 



-Phase 5 — — — ^-, — , — _.. ._ — ^-.^^- ^^. — Level : 



h 



Routine 



Ullage 



Called 
-'outines 



Calling Conditions 



BUILD 



h 



To produce the object 
program module (OPM) 
and Program Module 
Dictionary CP^'D) for 
each compilation. 



CiMSEC 

i/RSEC 

COS EC 



Entered for each COMMON block to create 

a Control Section in the 0PM- 
Entered for each compilation to build a 

prototype control section (PSECT) for 

the OPM. 
Entered for each compilation to create a 

Control Section for the object code« 



ASSIST 



To produce the Internal 
Symbol Dictionary CISD) 
when the option is 

selected by the u£;er. 



None 



H 



EDIT 



SYMSRT 



h 



To produce and output 
several user-selec:ted 
listings concerning the 
OPM. 



CONCV 



PHEAD 



OLR 

CCEKTHE) 



Entered when a constant is encountered in 
the object code listing to convert to 

EBCDIC. 
Entered when a new page of the listing is 

needed, ejects the page and prints the 

heading. 
An Exec routine entered to print each line 

of the output listing. 



To produce and output 

an alphabetical listing 
of all the items in thcj 
Symbol Table. 



PHEAD 



OLR 

(CEKTHE) 



Entered when a new page of the listing is 
needed, ejects the page and prints the 
heading - 

An Exec routine entered to print each line 
of the output listing. 



H 



H 



CRFSRT 



To produce and output a 
Cross Reference List foi 
all symbols and state- 
ment labels. 



PHEAD 



OLR 

CCEKTHE) 



Entered when a new page of the listing is 
required, ejects the page and prints the 
heading. 

An Exec routine entered to print each line 
of the listing. 



Routine:- ^— Phase 5- 



- Lev el : 



CMSEC 



~+- 



To create a Control Sec- 
tion CCSECT) correspond- 
ing to a COf^MON jDlock 
definition. 



SPECS 



Entered for BLOCK DATA subprograms to 
store the pre-set data. 



COSEC 



To produce the Control 
Section for the Dbject 
code and the numeric 
constants and enter some 
information into the PMD 
and ISD. 



None 



PRSEC 



h 



CONCV 



To produce the prototype 
control section C PSECT) 
for the OPM. 



SPECS 



Entered if any pre-set data is present to 
store it in the noncommon variables. 



To convert constants to 
EBCDIC for the output: 
listing. 



PHEAD 

OLR 
(CEKTHE) 



" + " 



Entered when a new page is needed to eject 

a page and print the heading. 
An Exec routine entered to print each 

output line- 



H 
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Table 29. Phase 5 Decision Table (Part 3 of 3) 
Routine:™ — • — — — --Phase 5 • — • — - — ^ — ^ 



-Level: 



I- — 

SPECS 



Routine 



Usage 



+- 



Called 
Routines 



Calling Conditions 



To place the values given 
in pre-set data state- 
ments into the text of 
the appropriate control 
section - 



RDM 
CCEKTE) 



Entered if an error condition 
encountered - 



PHEM) 



— +■ 



To eject a page, update 
the page number, form 
aed print the pstge head- 
ing, and initialize the 
line count. 
A™. , «.____--.„^ 



~+- 



OLR 

(CEKTHE) 



An Exec routine entered to print the 
heading. 



OPERATION : PHASE5 (Figure 38), activated 
by a call from the exec, combines and edits 
outputs from the earlier phases, to produce 
the object program and the various optional 
program documentation. The symbol table, 
the code file from Phase 4, and several 
special lists from Phase 1 are the main 
sources of material. 

PHASES initializes nonvolatile register 
Nl with the symbol table base and thus 
establishes a phase-wide common register. 

It also copies the intercom into the Pha- 
se's PSECT. 

PHASES proceeds to construct the object 
program text and the program module dic- 
tionary (PMD) . If the ISD option has been 
selected and the program is not a BLOCK 
DATA subprogram, PHASES will build the 
related internal symbol dictionary. After 
successfully building the OPM and its 
related ISDCif requested), PHASES edits any 
user-selected documentation. 

Finally, PHASES restores the compiler's 
intercom and returns to the phase 
controller. 



CEKSB — Object Program Module Builder 
CBCJILD) 

The purpose of subroutine BUILD is to 
construct the object program module and to 
BUILD a part of the internal symbol dic- 
tionary. See Chart GL. 



ENTRIES : BUILD has only a single entry 
CCEKSBl) from PHASES. BUILD expects no 

input parameters other than those contained 
in the phasewide register assignments. 



EXITS ; Normal exit only to PHASES. 
output parameters. 



No 



OPERATION: The object program module is a 
part of the edited end product of the TSS/ 
360 FORTRAN compiler. More specifically, 
it is that part which ultimately partici- 
pates in the routine execution of a task. 

The object program module consists of 
executable object code, and other control 
and reference parameters necessary for the 
relocation and execution of the control 
sections contained within the OPM. From 
the viewpoint of the compiler, the OPM is 
the result of one complete pass through the 
compiler, and thus represents a unit of 
source code terminating with an END 
statement « 



The OPM is organized into several con- 
trol sections CCS), each of which has a 
dictionary part CCSD) and an optional text 
part. This material of the OPM is divided 
into two data sets, with one set containing 
the module heading and CSDs (also called 
PMD) , and the other set containing the text 
part. The text of each control section 
starts on a page boundary. Named COMMON 
control sections may or may not contain 
text- The OPM is designed to be compatible 
with the assembler output and is suitable 
for processing by the dynamic loader and 
link editor. 



Initialization of Module ; Upon entry BUILD 
initializes the object program module. The 
initialization consists of: 

1. Pre-processing of the PMD heading (see 
Figure 35) which includes the follow- 
ing of: 

a. OPM name (six characters) is 

obtained from the intercoffi region 
and inserted in the 8-byte name 
field (left- justified) of the 

standard entry point (SEP). 
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Figure 38. Phase 5 General Flow 



e. The PCS confflttini cation indicator is 
inserted, based upon the contents 
of the ISD flag and whether the 
module is a main program. The 
FORTRjys module bit is set on. 

f . The version ID is retrieved from 
the intercom and inserted in the 
8-byte field allocated. The PCS 
communications indicator is set 
when the version ID is a 

time- stamp. 

g. Number of references and number of 
modifiers are both set to 1. 

h. The name field in the reference 
from the SEP is set to: 

CD Name of the CSECT, if other 
than block data. 

(2) CHCIW5, if block data. 

i. The fields in the modifier are 

CI) Reference number and T field 

are set to 1. 

C2> L and byte are set to 0. 

2. Establishment of the number of COMMON 
control sections. 

3. Initializing two parameter registers, 
one to the base of the first CSD in 
the PMD and the other to the base of 
the OPM. 



Processing of COMMON Control Sections ; The 
CMSEC subroutine is called by BUILD 
repeatedly. CMSEC generates a control sec- 
tion corresponding to a COMMON block. In a 
BLOCK DATA subprogram BUILD terminates the 
module immediately after processing COMMON 
control sections. 



Code and PSECT Control Sections : Subrou- 
tines COSEC and PRSEC produce the CSECT 
control section and PSECT control section, 
res pect ively . 



b. The length of the PMD heading, in 
bytes is inserted in the PMD. 



The diagnostic code field is set 
to the contents oi: maximum error 
code in the intercom region. 



Termination of a Module ; Before returning 
to PHASES, BUILD inserts the length (in 
bytes) of the PMD into the appropriate call 
in the PMD heading. 



CEKSC 



Common Control Section Generator 



(CMSEC) 



The deck ID name is obtained from 
the intercom region and inserted 
into the ^-character ID name 
field. 



The purpose of CMSEC is to create a con- 
trol section corresponding to a COMMON 
definition. CMSEC is used by BUILD. See 
Chart GM. 
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ENTRIES : CMSEC has a single entry CCEKSCl) 
from BUILD. 

CMSEC expects the following input para- 
meters, in addition to those specified in 
the phase-wide register assignments: 

1. A pointer to the current COMMON block 
entry in the storage class table. 

2. The location for building the CSD in 
the PMD. 

3. The base for making text entries into 
the current COMMON control section. 



EXITS : Before exiting, CMSEC 

1. Sets the base for the next CSD entry 
in the PMD. Specifically, this is the 
first word boundary after the last 
entry made (in the PMD) by the current 
call on CMSEC. This value will be 
passed back to BUILD as a register 
parameter and will also be stored in 
Phase 5's intercom (as the current PMD 
top) . 

2. If any text entries were made into the 
current COMMON control section, CMSEC 
sets the base for the next entries in 
the OPM. The base will be the first 
page boundary following the last page 
of text of the current control sec- 
tion. This parameter will be passed 
back to BUILD in a register and will 
also be stored in the intercom as the 
(current) OPM top. 



OPERATION ; Upon entry, CMSEC clears the 
CSD heading and definition. The number of 
relocatable definitions is set to 1, and 
the attributes are set to indicate the type 
of COMMON control section (blank or named 
COMMON). The name of the COMMON block, 
found in the storage class table, is 
inserted (left- justified) in the alphameric 
name of definition field. The storage 
class table entry also supplies the size of 
the COMMON block. The number of pages of 
virtual storage is now calculated 

N = Size -I- 4095 
P 4096 

and inserted in the CSD. The virtual 
storage page table of the CSD is then con- 
structed and consists of Nphalf words, con- 
taining only 1 bits. 

In the case of a BLOCK DATA subprogram, 
control sections corresponding to named 
COMMON blocks undergo additional proces- 
sing. CMSEC prepares to process preset 
data and calls for the SPECS subroutine. 
SPECS performs the following functions: 



1. Does the actual scan of the preset 
data file. 

2. Selects the appropriate DATA items. 

3. Generates the necessary text pages. 

1. Moves the preset data items into the 
text. 

5. Indicates in the virtual storage page 
table those pages that contain text. 

SPECS returns to CMSEC, which terminates 
the control section. Termination of CMSEC 
includes entering the number of bytes in 
the CSD into the first word of the CSD and 
the number of bytes of control section into 
the second word of the CSD. 



CEKSF — Code Control Section Generator 
(COSEC) 



COSEC produces one of the component con- 
trol sections of the object program module 
(OPM) . In particular, it produces the con- 
trol section that consists of the object 
code, including numeric constants. In 
addition, COSEC enters information into the 
program module dictionary (PMD) and 
generates part of the internal symbol dic- 
tionary if the ISD flag is on. See Chart 
GN. 



ENTRIES ; COSEC has a single entry (CEKSFl) 
from BUILD. 

Input Parameters : 

1. Origin of CSECT's CSD. 

2. Origin of CSECT's text. 

EXITS ; COSEC makes a single exit to BUILD. 
Output Parameters : 

1. Instructions that needed their displa- 
cement fields filled in before being 
stored into CSECT's text will be 
returned to the code file in completed 
form. (This is done to facilitate the 
work done by EDIT, whose function is 
to produce an output listing) . 

2. As an additional service to EDIT, 
COSEC will store in Phase 5"s PSECT 
the number of bytes of text of the 
code control section and the origin of 
the OPM's PSECT. 

3. The top of the code control section 
will be stored in a specified location 
in Phase 5's PSECT and will also be 
passed as a parameter in a register. 
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^. The register that contains the base of 
the CSD for CSECT will oe set to the 
first word boundary following the last 
entry COSEC made. This value will 
also be stored in a specified location 
in Phase 5's PSECT. 



OPERATION: 

Code Control Section : The code control 
section (CSECT) consists of code and numer- 
ic constants. 

1. Object Code. The code entries into 
the CSECT are determined by an inves- 
tigation of the code file (generated 
by Phase 4). The items of the code 
file are sequentially scanned and may 
be ignored or entered into the CSECT, 
or they may give information for 
determining an entry in the CSECT. 
Entries into the CSECT are placed 
sequentially, as they are encountered 
(or determined). Three registers are 
used during this operation? one 
register marks the item to be investi- 
gated in the code file, and two regis- 
ters are used to indicate the avail- 
able byte for storage la the CSECT. 
The first byte (operation field) of 
each item in the code file determines 
the action to be taken. Following are 
the actions taken for the various 
possible values. 

Let X represent the value of the first 
byte of the item being investigated- 
Then: 

a. For X less than or equal to 2: 

No entry is made into the CSECT - 

If X is equal to 1, the location 
counter of the code file is incre- 
mented by eight bytes; otherwise, 
it is incremented by four bytes. 

JD. For X strictly less than ^0±q and 
strictly greater than 2; 

The item being investigated is a 
halfword instruction and is placed 
into the CSECT. The index regist- 
er for CSECT is incremented by two 
bytes, and the address register of 
the code file by four a 

c. For X strictly less than DOj_g and 
greater than or equal to 40^6 - 

The item being investigated is a 
fullword instruction and is placed 
in the CSECT. CSECT 's index 
register and the code file's 
address register are both incre- 
mented by four bytes. 



For X greater than or equal to 
DOj. and strictly less than FEj.© : 



The item being investigated is a 
6-byte instruction and is placed 
in the CSECT. CSECT* s index 
register is incremented by six 
bytes, and the location counter 
for the code FILE scan is incre- 
mented by eight bytes. 



e. For X exactly equal to FE^s : 

The word being investigated, plus 
the following two words, contains 
information for determining a ful- 
lword entry into the CSECT. 

The second word (investigated word 
plus 1) is to be placed into the 
CSECT after its displacement field 
has been completed. 

Both the first and third words 
(second half) contain pointers to 
the symbol table. The first-word 
pointer is to an adcon entry, and 
the third- word pointer is to a 
statement label entry. 

The displacement is calculated by 
subtracting the offset (in the 
value field of the adcon) from the 
assignment of the label. 

The address register of the code 
file is updated by twelve bytes, 
and the index counter of CSECT by 
four. 

f . For X exactly equal to FF^g : 

This is the termination code to 
inform COSEC that the scan of the 
code file is completed. 

2. Numeric Constants . Upon completion of 
the code file scan, COSEC will check 
storage Class 2 in the storage class 
table for the presence of numeric con- 
stants . In the event that storage 
Class 2 is not empty, COSEC will 
execute the following. 

a. The first available byte for a 
numeric entry into the CSEC will 
be set on the first quadruple- word 
boundary following the last code 
entry (these zero to twelve bytes 
will be filled with zero bits) . 

b. The numeric constants will be 
retrieved and placed in CSECT 's 
text, by following pointers to the 
symbol table from the constant 
header table. 
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CQnt:rol Section Dictiionary Entries ; (See 
Figure 35) Each control section has a con- 
trol section dictionary CCSD) associated 
with it in the program module dictionary 
(PMD). The origin of CSECT's CSD will be 
passed as a parameter in a register for 
COSEC to make the following entries: 

!• Initialize the CSD heading to all zero 
bits . 

2, Retrieve from the intercom the time 
stamped version ID of the module and 

insert it into the CSD, 

3, Set the appropriate word in the CSD to 
indicate CSECT's attributes, which are 
reentrant and read only, plus PUBLIC 

if indicated by the user's options. 

4- Retrieve from the intercom the module 
name, add a suffix (#C) to this name, 

and place it in the CSD. 

5, Calculate and insert the length (in 
pages) of CSECT into the CSD. This is 
determined by subtracting CSECT' s ori- 
gin from its next available storage 
byte, and dividing the result by 4 096. 
The integral portion (plus 1 if the 
remainder is nonzero) is the number of 
pages* 

6. Complete the virtual storage page 
table for the CSD. A halfword page 
number entry will be made for each 

text page of CSECT. The page number 
entries will be ordinal numbers of the 
form I, where 1=0, ...., n-1 {0<n-l) 
and n equals the integer portion of 

no. bytes of text -t- 4094 
4096 

7. . The number of bytes in the CSD will be 

placed in the first word of the CSD. 

8. In the second word of the CSD, COSEC 
will store the number of bytes of text 
of the code control section. 

ISP Entries : CSee Figure 36) Concurrent 
with the building of CSECT, certain entries 
will be made in the ISD, if the ISD option 
is not suppressed. Initially, the number 
of control sections will be calculated and 
stored (right- justified) in the fourth word 
of the ISD. The number of control sections 
is equal to the number of COMMON control 
sections plus 2 Cone for PSECT and one for 
CSECT) . 

The number of COMMON control sections is 
directly obtainable from the storage class 
table. The first two bytes of the storage 
class table give the number of named COM- 
MONS, and the tenth word (Storage Class 9) 
indicates if there is a blank COMMON. 



The number of control sections, multi- 
plied by 16, plus 24, gives the offset (in 
bytes) for the beginning of statement numb- 
er storage in the ISD- 

During the scan of the code file, while 

CSECT is being built, if the first byte of 
the item being investigated has a value of 
1 or 2 , it may cause a statement number 

entry to be made into the ISD. 

1« If the value of the item is 1, the 
item is a statement header and is 
eight bytes long. The last four bytes 
of the item contain a line number. 
This line number is checked against 
the last line number encountered. If 
it is the same, no entry is made into 
the ISD. However, if it is different, 
an entry will be made into the ISD. 
The statement number field in the ISD 
will be set to all zero bits, and the 
following word (offset field) will 
have the current value of CSECT' s off- 
set counter stored in it. In addi- 
tion, the new line number will replace 
the old line number (for testing), the 
location counter for the ISD (marking 
the next available word for a state- 
ment number entry) is incremented by 
eight bytes, and the code file's 
address counter is incremented by 
eight bytes. 

Note ; The next paragraph outlines an 
additional condition on the handling 
of statement headers. 

2. If the value of the byte being inves- 
tigated is 2, the item is four bytes 
long, with the last two bytes of the 
item containing a pointer to a state- 
ment label entry in the symbol table. 
A test is conducted (on the class 
field of the label) to see if it is a 
source label. If it is, the binary 
value of the label is retrieved (from 
the symbol table) and placed in the 
statement number field of the ISD. 
The word following the label entry 
will have the contents of CSECT 's off- 
set counter stored in it. The ISD's 
location counter is incremented by 
eight bytes and code file's address 
counter is incremented by four bytes. 
Further, no entry into the ISD will be 
made for the next statement header 
encountered . 

Note: Upon completion of statement 
number entries into the ISD, COSEC 
will place the number of statement 
number entries made into the fifth 
word of the ISD. Also, at this time 
the ISD's location counter will con- 
tain the beginning location for symbol 
entries (in the ISD). The offset from 
the base of the ISD to where the sym- 
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bol entries are to start will be cal- 
culated and stored in the third word 
of the ISD. - 



CEKSG — PSECT Builder CPRSEC) 

The purpose of subroutine PRSEC is to 
build a prototype control section for the 
object program module- See Chart GO. 



ENTRIES: PRSEC has a single entry CCEKSGl) 
from BUILD. 

Parameters expected by PRSEC, in addi- 
tion to phase wide register parameters, are 
the base of its CSD and its text base. 



EXITS : Parameters passed upon exit back to 
BUILD are the PMD top and the OPM top. 

OPERATION : The building of the PSECT may 
be divided into the procedures discussed 
below. Concepts and terminology with 
respect to the program module dictionary 
(PMD) are closely related to their usage in 
TSS/360 Dynamic Loader, Internal Program- 
ming S pec if icat ions . 

1. Initialization of PSECT* s control sec- 
tion dictionary (See Figure 35) 

The CSD heading is cleared. The ver- 
sion ID time stamp is inserted in the 
fourth and fifth words of the CSD. 
The number of relocatable definitions 
field is set equal to 1. The attri- 
butes field is set to indicate a 
fixed- length prototype control sec- 
tion. The name of the module, with a 
suffix #P, is inserted in the name 
field of the first definition. 

2. Processing of Entry Points 

h special entry in the intercom region 
points to the beginning of a chain in 
the symbol table containing (exclu- 
sively) descriptions of entry points. 
PRSEC follows this chain and processes 
each entry as follows: 

a. The name of the entry is inserted 
in the definition table. 

b. The offset CSLOC) is inserted as 
the value of DEF. 

c. The number of complex definition 
is increased by 1. 

d. The CSD index is incremented 
appropriate ly . 

e. Unusual fields are cleared to 
binary zeros. 



Construction of Reference Table 

The reference table of the PSECT" s CSD 
contains entries similar to the 
entries in the definition table. 
There are two types of entries: 



a. Names of control sections of this 
OPM. 

b. Names of external references 
(entry points defined in other 
modules) . 

Subroutine PREC first processes 
references to control sections 
within the module. The procedure 
is similar to the processing of 
entry points, except that the 
number-of-ref erences field is 
incremented by 1 for each entry in 
the reference table. Control sec- 
tion names are entered in the 
order in which the control sec- 
tions appear in the OPM. External 
references are obtained by follow- 
ing a chain in the symbol table. 
Reference numbers, which are the 
ordinal numbers of the entries in 
the reference table, are retained 
for subsequent use in constructing 
the relocation directories. Each 
storage class is represented by 
one word starting at WORK + 100 in 
the phase's intercom, and each 
word contains an LA reg, d 
instruction, where d is preset 
with the appropriate reference 
number. The reference number of 
an external reference is saved in 
the DMLST field of the correspond- 
ing symbol table entry. 

Building of Relocation Directory (RLD) 
for Entry Points 

Each item in the definition table, 
that describes an entry point, has a 
1-word relocation item in the RLD for 
complex definitions. The RLD itself 
starts with a list of 1-word modifier- 
pointers. The following steps are 
performed to establish the modifier- 
pointer list. 

For each PMD page, up to and including 
complex definitions, a 1-word 
modifier- pointer is inserted into the 
CSD. The value of each modifier- 
pointer is 



l^ (N 



where: 



n) + 2 



N is the number of pages in the 
PMD. 
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n is the page number to which tne 
modifier-pointer refers - 

Thus, initially, each pointer indi- 
cates the first RLD iterru 



Each RLD item has ze 
and 1 in its T field 
length of four bytes 
be modified, and spe 
as the modification 
reference number is 
of C sect's reference 
table. The byte add 
displacement of the 
complex definition 
priate PMD page. 



ro in its L field 
, indicating a 

for the adcon to 
cifying addition 
operation. The 
the ordinal number 

in the reference 
ress is set to the 
value field of the 
ithin the appro- 



At the completion of the RLD, or at 
page boundaries within the complex 
definition list, the number of RLD 
items pertaining to that page is 
inserted, in the left half of the 
corresponding modifier- pointer. The 
pointer of the next modifier-pointer, 
if there is one, is increased by the 
current number of bytes in the RLD, 

Initialization of PSECT Text 

The first 84 bytes of t!ie PSECT text 
are cleared. Before offsets in PSECT 
of the various storage classes can be 
computed, the size of NAMELIST infor- 
mation must be determined. 

Calculation of NAMELIST Size 

NAMELIST size is accumulated as 

follows: 

Symbol table entries in the non- 
variable name chain are scanned and 
searched for NAMELIST names. Each 
NAMELIST name contributes 12 bytes. 
Each variable in a NAMELIST increases 
the size by 16 + 8N bytes, where N is 
the number of dimensions. The number 
of variables is obtained from the 
NAMELIST name entries, and dimension 
information is obtained by following 
symbol table pointers from the preset 
data file NAMELIST entries. 

The offsets from PSECT* s text base are 
computed and stored temporarily in the 
PSBZT's register save area- 
Processing of External References 

Address constants for external 
references nay be present in the adcon 
page, as well as parameter lists. If 
the combined size of register save 
area, local working area, address con- 
stants, and parameter lists does not 
exceed one page of PSECT' s text, the 
RLD modifier- pointer is set to ^ C 4- 



byte integer) and the adcons are imme- 
diately processed. Otherwise, the 
portion of parameter lists which is in 
excess of one page is examined for the 
presence of external references. If 
none are encountered, processing takes 
place as above. If, however, there 
are external references, the number of 
additional text pages containing such 
references is determined, and the 
appropriate number of words in the RLD 
modifier-pointer list is cleared. 



Processing of external reference 
adcons and the corresponding reloca- 
tion items in the RLD is as described 
in the following paragraphs: 



Adcon entries in the Symbol Table are 
scanned. The value of the adcon is 
tested for storage class 254 and, if 
the test is successful, the corres- 
ponding non-variable name entry (in 
symbol table) is inspected for its 
class. If the class indicates extern- 
al reference, the name is matched 
against the list of reference names in 
the CSD, to obtain the ordinal number 
of such matching reference. The relo- 
cation item is composed to contain 
in the L field, and the ordinal number 
of the reference in the external 
reference number field. The T field 
is set to 2, and the byte field is set 
equal to the offset of the adcon + 84. 
Four bytes in the PSECT, starting at 
the location indicated by byte field 
are cleared, the number of text modi- 
fiers field in the appropriate 
modifier-point is increased by 1, and 
a pointer to the RLD is advanced by 
four bytes so that the next relocation 
item may be received. 



External reference adcons in parameter 
lists are processed in similar manner, 
except that the byte field is 
increased by the size of storage class 
4 to give the proper offset within 
PSECT. 

If the external reference adcons are 
distributed over several pages of 
PSECT 's text, a different procedure is 
followed- After processing adcon 
page, a counter is initialized to 
determine page boundaries within para- 
meter lists. At the start of each 
page, the pointer in the modifier- 
pointer for that page is set with the 
location, relative to the modifier- 
pointer, of the next relocation item. 
The byte field in the relocation item 
contains the displacement within the 
corresponding text page. 
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Processing of Internal r^.eferences and 
NAMELIST Items 

The nomber of modifier- pointers for 
the RLD for internal references is 
determined by the numi^er of pages in 
PSECT's text, from base to Namelists 
inclusive. Processing of the RLD 
entries is very similar to the proce- 
dure outlined under Processing of 
External References. There are, 
however, several differences- In the 
relocation item, the reference number 
field is obtained as follows: 

a . For adcons perta ining to storage 
classes 1 and 2, the references 
number is 

(Number of COi^iMON blocks) + 1 

b. For adcons covering storage 
classes 3, 4, 5, 6, 7, and 8, it 
is 

(Number of COMMON blocks) + 2 



10. 



LIST entry is set with a symbol table 
pointer to that variable for later 
processing. The SLOG field of the 
NAMELIST name entry is assigned as 
offset in PSECT. 



Adcons in parameter lists and name- 
lists are processed as described 
before. A page count and special 
handling of RLD, similar to the proce- 
dure mentioned in (7) above, may take 
place. Adcons in NAMELIST (locations 
of variables) are computed from the 
appropriate symbol table entries. 

Processing of Alphameric Information 

The alphameric information will be 
retrieved from the preset data file 
and stored in the PSECT, beginning at 
the first doubleword boundary after 
the last NAICELIST entry. 

Insertion of Virtual Storage Page 
Table 



Adcons referring to storage 
classes 9 through 127 have a 
reference number = (storage class) 
- 8, if blank COMMON is present, 
or (storage class) - 9, if blank 
COMMON is absent. 

Adcons that belong to one of the 
storage classes from 128 through 
253 have no RLD entry made in the 
CSD; they will, however, cause a 

word to be set to zero-bits in 
PSECT 's text. 



11. 



A virtual storage page table (VMPT) is 
constructed and contains halfword 
entries of ordinal numbers from to 
n-1 , where n is the number of pages 
that contain text (up to and including 
NAMELIST) . Pages corresponding to 
noncommon variables, global and local 
temps are allocated by setting the 
corresponding number of halfwords in 
the VMPT with 1-bits. 

Processing Preset Data Stems in non- 
COMMON Variables 



In general, the value of an adcon is 

Storage Class + Offset 

If for any adcon (both storage classes 
4 and 5) the storage class of its 
value is 254, the offset part of the 
value field contains a symbol table 
pointer, and PRSEC obtains the value 
of the offset from the symbol table 
entry. In any case, the content of 
the 4- byte adcon is computed as 
follows: 

Offset in Storage Class + Offset 
of Storage Class in CS 



If an adcon that poi 
name entry in the sy 
encountered, the con 
are made equal to th 
NAMELIST name, if as 
next available NAi4£L 
NAMELIST entries are 
information in the f 
FORTRAN I/O. The lo 
each variable descri 



nts to a NAMELIST 
mbol table is 
tents of the adcon 
e SLOC of the 
signed, or to the 
1ST entry. The 

processed to give 
ormat specified by 
cation field in 
ption of the NAME- 



If preset data is present, subroutine 
SPECS is called to select and insert 
any preset data items of storage class 
6 into the area of nonCOMMON 
variables. 

12. Termination of PSECT 

Termination of PSECT consists of: 

a . Storing the number of bytes in the 
PSECT' s text into the second word 
of the CSD. 

b. Setting the OPM top in Phase 5's 
intercom to the first page boun- 
dary following the last text entry 
in the PSECT (also passed in a 
register) . 

c. Storing the number of bytes in 
PSECT* s CSD into the first word of 
the CSD. 

d. Setting the PMD top in Phase 5's 
intercom to the first doubleword 
boundary following the last CSD 
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entry made by PR SEC (also passed 
in a register) • 

The last six words of the first 
100 bytes of the PS£CT will be 
used as masks and should contain 
values Cleft- justified) as shown 



Bytes 


Value 


Usaqe 




76-79 


80j_ 


1-word 


sign mask 


80-87 


HE^ 


2-word 


float mask 


88-95 


00 


2- word 


temporary 


96-99 


46i 


1-word 


float mask 



CEKSD 



Preset Data Processor (SPECS) 



For variables whose initial values are 
given, subroutine SPECS places these values 
into the t-^xt of the appropriate control 
section. See Chart GP. 

ENTRIES ; Subioutine SPECS has a single 
entry (CEKSDl) from either subroutine CMSEC 
or subroutine PRSEC. 

Input Parameters ; 

!• Location of virtual storage page table 
in current Control Section Dictionary. 

2, Base of storage class in current con- 
trol section. 

3. Storage class of items to be filed in 
current cx>ntrol section. 

EXITS : Normal exit only. SPECS returns 
control to the calling program with input 
parameters unchanged. 

OPERATION: For the purpose of the follow- 
ing discussion, the following conventions 
are established: 

Variable - A variable is either a simple 
variable or an array 
variable. 

Variable - The value of a variable is 

either the initial value of a 
simple variable or the ini- 
tial value of an element of 

an array. 

Preset Data - Preset data are those entries 
in the preset data file (PDF) 
that originated from a DATA 
statement or from data speci- 
fied in a type specification 
statement. 

The preset data file is a prime source 
of information used by SPECS. The preset 
data entries in the PDF contain, among 
other information, a link to the next vari- 
able in the preset data file, a pointer to 
the symbol table for each variable, one or 
more value entries for each variable (i.e.. 



elements of an array) , a replication factor 
for each value, and an offset entry that 
indicates where the values are to be placed 
from the base of the variable's storage 

class. 

For descriptive purposes, SPECS is 
characterized in terms of retrieval and 

storage. 

Retrieval ; 

1. Subroutine SPECS is called during the 
generation of a PSECT if any preset 
data is present in the PDF or during 
the generation of a named COMMON con- 
trol section of a BLOCK DATA 
subprogram. 

2- SPECS locates the first preset data 

entry in the PDF by following a point- 
er given in the intercom. 

3. For each variable within each preset 
data entry, SPECS follows the variab- 
le's pointer to the symbol table and 
tests its storage class. 

Storage ; 

1. The values for variables of appropri- 
ate storage class are stored into the 
text of the current control section. 

2. For each page that is to have informa- 
tion placed on it, SPECS enters the 
virtual storage page number in the 
CSD. 



CEKSH — Internal Symbol Dictionary 
Generator (ASSIST) 

Phase 5 of the FORTRAN compiler will 
test to see if the user has chosen to have 
an internal symbol dictionary CISD) 
generated. In the event the user has indi- 
cated his desire to do so, it will be the 
function of ASSIST to generate the ISD Csee 
Figure 36) . 

It should be noted that no ISD will be 
built for a BLOCK DATA subprogram and that 
the ISD is a prerequisite for utilizing the 
program control system (PCS). See Chart 
GQ. 



RESTRICTIONS: 



The first word at the begin- 



ning of a FORTRAN- gene rated ISD must have a 
1 in bit 20. The rest of the word will be 

zeros. 

ENTRIES ; Subroutine ASSIST has a single 
entry (CEKSHl) from PHASES. 

ASSIST has the following input 

parameters: 
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1. Offset (in bytes) in PSECT of nonCOM- 
MON variables.- 

2. The third word of the ISD contains the 
offset from the base of the ISD for 
symbol entries and is filled in by 

CO SEC. 

EXITS ; Normal exit only, to PHASES. 
Before exiting, ASSIST stores the ISD top 
into the intercom. 

OPERATION ; The entries in the ISD primari- 
ly are subdivided into control section name 
entries, statement numt>er entries, and sym- 
bol entries. Statement number entries are 
made (in the ISD) during the time that sub- 
routine COSEC is operating and will not be 
discussed here. 

Control Section Names ; All control section 
Names CCSECT, PSECT, labeled and blank COM- 
MON) are listed in the ISD- Immediately 
following each control section name entry 
in the ISD is the alphameric v'er^ion ID of 
the module. 

Method ; COMMON names (including blank COM- 
MON) are among the items listed in the 
storage class table. ASSIST will retrieve 
these names from the storage class table 
and insert th«n in the ISD. The name used 
for the CSECT name will be the name of 
module with a #C suffix, and the name used 
for the PSECT name will be the module name 
with a #P suffix. (If the module nam.e is 
seven or eight characters long, it will be 
truncated to six characters before the suf- 
fix — #C for the CSECT name and #P for the 
PSECT name — is added.) 

Symbols ; Each symbol, either COMMON or 
nonCOMMON (integer, real, complex, or log- 
ical) will have information about it placed 
in the ISD. Btost of the information is 
obtained from the symbol table. 



Offset 



The information in the ISD will consist 



of 



Alphameric Name Obtained from the symbol 
table 



Dimension 
Constants 



For variables in COMMON 
control sections, the 
offset is equal to the 
contents of the SLOC 
field assigned to the 
symbol in the syiTibol 
table. 

For symbols belonging to 
the PSECT, the offset 
will be the contents of 
the SLOC (from the symbol 
table plus the offset of 
nonCOMMON variables in 
the PSECT. (This addi- 
tional offset is an input 
to ASSIST.) 

Obtainable from the 
dimension table, or none. 



The symbol table has all symbols linked 
according to their respective storage 
classes. Initial entry to the first vari- 
able in the chain is accomplished by fol- 
lowing the pointers listed in the storage 
class table. 



CEKSI 
(EDIT) 



Object Program Documentation 



The purpose of EDIT is to edit the 
object program module at a user-selected 
documentation level. See Chart GR. 



ENTRIES ; EDIT has a single entry (CEKSIl), 
from PHASES. 

Upon entry, EDIT expects the following 
information; 

The number of bytes of the code control 
section (first word of Phase S's work 

area) . 

Origin of the 0PM 's PSECT (second word 
of Phase S's work area). 

Parameters passed in the phase- wide as- 
signment of registers. 



Type 



Obtained from the symbol 
table 



Number of Dimen- Obtained from the dimen- 
sions sion table 

Length of Entry Calculated 

Length Attribute Obtained frons the symbol 

of Symbol table 



Section Number 



Refers to the order in 
which the symbol's con- 
trol section name appears 
in the ISD. 



EXITS ; EDIT exits to PHASES. No output 
parameters. 

OPERATION ; 

General Discussion ; There are three docu- 
mentation levels at which an object program 
module may be edited. 

1. The basic level is always edited. The 
user receives this documentation even 
if he fails to specify one of the 
higher documentation levels. The 
basic level consists of: 
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a- Program header, including the OPM 
name and the combined size of the 
CSECT and PSECT. 

b. Names and offsets of entry points. 

c. Names of external references. 

d. Names and sizes of control 
sections. 

e. Names, offsets, and sizes of 
storage classes, if other than 
control sections. 

The basic doctimentation level is 
included in both of the higher levels. 

The second level is generated if the 
user has selected the MAP option. At 
the MAP level, the basic level is aug- 
mented to include (in storage order) : 



b. 



Names and locations of labels. 

Names, offsets and sizes of COMMON 

and nonCOMMON variables. 



3. The third level of OPM documentation 
is obtained by exercising the LIST 
option. The LIST documentation level 
expands the MAP level to a full repre- 
sentation of the object program 
module. This level adds: 

a. A listing of the CSECT text, 
including object code and numeric 
constants . 

b. A listing of the PSECT text, 
including tabulation of address 
constants, available information 
about parameter lists, and alpham- 
eric constants. 

Throughout the documentation, locations 
and offsets are given as the number of 
bytes from the corresponding control sec- 
tion base, in hexadecimal. All sizes, in 
decimal, indicate the number of bytes. 



Method : CSee Figure 39) After initializa- 
tion, EDIT prepares the program header, 
consisting of the OPM name and the size of 
CSECT -♦• PSECT, as follows: 



NAME 



SIZE 



All entry points are now listed, one 

entry per line: 



ENTRY NAME 



OFFSET IN CSECT 



EXTERNAL REFERENCES NAMEl, NAME2, NAME 3 , 

NAi4E4 , ... 

This completes the header information, 
and EDIT now processes the CSECT, if it is 
present. At the basic documentation level, 
the CSECT is described as follows: 

CSECT NAME SIZE 

CODE SIZE 

NUMERIC CONSTANTS OFFSET SIZE 

The necessary information is obtained 
from the storage class table. 

If the MAP level is selected, EDIT 
appends a list of labels to the CODE entry. 



LINE NO- 
XXXXX . XX 
XXXXX. XX 



LABEL 

LABELi. 

LABEL2 



LOC HEX 

OFFSET 

OFFSET 



External references are represented by 

name only: 



The labels are listed in the order of 
their assignments and are obtained by scan- 
ning the code file and utilizing the label 
entries in the symbol table. 

With the LIST doctimentation level, EDIT 
generates a full expansion of the object 
code, as well as constants. The general 
format, appropriately arranged within an 
assumed line of 132 print positions, is as 
follows: 

LINE NO. LABEL LOCATION INSTRUCTION 
COMMENTS 

The LINE NO, represented in statement 
header entry of the code file as a packed 
decimal, is edited as follows: 

1. All leading zeros are suppressed. 

2. In the case of integers, the decimal 
point and fractional digits are 
suppressed. 

LABEL entries may consist of: 

1. Source statement numbers. 

2. Internally created labels 099999) . 

3. Entry point names. 

EDIT processes LABEL entries as they are 
encountered in the code file. 

LOCATION contains the location of the 
instruction with respect to the base of the 
CSECT. It is obtained from a register, 
which keeps a cumulative total of bytes in 
the object code. 
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CO 
CD 



p. 



NAMEXKXX,VVVVVVVV^ 

NAMEXX SIZE XXXXXXXX BYTES 

ENTRY NAME LOC HEX 



ENTRYl 
ENTRY2 



XXXXXX 
XXXXXX 



XX/XX/XX PAGE XXX 



o 

c 
ft 

ft 

W 
ft 
H. 
E3 

H 

ft 



H 
ft 



ENTRYN XXXXXX 

EXTERNAL REFERENCES 



exTERl 

NAMEK 
CODE 
/LINE NO* 
List Option [XXXXXtXX 



Map Option 



LINE NO. 



XXXXX.XX 



EXTER2 



EXTER3 



EXTERN 



EXTERN 



SUE XXXXXXXX BYTES 



LABEL LOC HEX 
XXXXXX XXXXXXXX 



LABEL LOC HEX 
XXXXXX XXXXXXXX 



INST HEX 
XXXXXXXX 



EXTER5 

MM/DD/YY 

LOC HEX OOOOOO 

INST ASSEMBLER 



EXTER7 



EXTER8 



hh:mm/ss2 

SUE XXXXXXXX BYTES 

COMMENTS 



XXXX XXiXXXX(XXfXX) (±«XXXXXXXXXXXXXXXXEtXX»t«XXXXXXXXXXXXXXXXE±XX) 



N'JMERIC CONSTANTS 



LOC HEX XXXXXXXX 



SIZE XXXXXX BYTES 







TYPE 
i C«16 
' I«2 
I R«4 



LOC HEX 
XXXXXXXX 
XXXXXXXX 
XXXXXXXX 



VALUE 
(t.XXXXXXXXXXXXXXXXEtXX.i.XXXXXXXXXXXXXXXXE+XX) 

1.982E+1 



NAMEfP SUE XXXXXXXX BYTES 

REGISTER SAVE AREA 
CONVERSION CONSTANTS 
ADDRESS CONSTANTS 



LOC HEX 



XXXXXXXX 
XXXXXXXX 



XXXXXXXX 
XXXXXXXX 



MM/ 

LOC HEX 00000000 
LOC HEX 0000004C 
LOC HEX XXXXXXXX 



CONTENTS HEX CONTROL SECTION + OFFSET(HEX) 



NAME#C 
NAME fP 



47 

4E7 



SIZE 76 BYTES 

SIZE 24 BYTES 

SIZE XXXXXXXX BYTES 
STORAGE CLASS 4 OFFSET(HEX) 



CODE 
ALPHAMERIC 



37 
E87 



CO 
(15 
O 
ft 
p. 

o 



* VERSION ID 

2 TIME STAMP (FOR CONTROL SECTIONS ONLY) 



I per rai 



O 



o 



d 

H 



o 

ft 

t< 

rf 

H 

3 

ft 



H 

ft 







NAHEXXXX 
PARAMETER LISTS 
[LOC HEX CONTENTS HEX 



XX/XX/XX PAGE XXX 



Lisi Optioi 



LOC HEX XXXXXXXX 
CONTROL SECTION + 0FF5ET(HEx) 



SIZE XXXXXX BYTES 

STORAGE CLASS + OFFSPT(HEX) 



\ 



NAMELISTS 

AtPHAMERICS 

LOC HEX ALPHA(HEX) ALPHA 



IOC HEX KXKKKKXK 
LOC HEX XXXXXXXX 



SIZE XXXXXX BYTES 
SIZE XXXXXX BYTES 



LUtOpUon 'XXXXXXXX XXXXXXXX A SINGLE ENTRY MAY HAvE SEVERAL CONTINUATION LINES 



List Option 



NON-COMMON VARIABLES (TOTAL) 
i' NON-COMMON VARIAPlFS 
VARIABLEl 



LOC HEX XXXXXXXX 
LOC HEX 

XXXXXXXX 



ariablen 
local tef4p0rary storage 
global temporary storage 

COMMON NAMEl 
VARIABLE 



List or ; VARIABLEl 

MapOpiion\ VARIABLE2 



XXXXXXXX 

LOC HEX XXXXXXXX 

LOC HEX XXXXXXXX 

LOC HEX XXXXXXXX 

LOC HEX 

XXXXXXXX 
XXXXXXXX 



COMMON NAME2 
rVARIABLE 



LOC HEX XXXXXXXX 
LOC HEX 



Lhi Of 

Map Opt 



n 



M.>p Opumi \ _ 



COMMON NAMEN 
VARIABLE 
I VARIABLEl 



LOC HEX XXXXXXXX 
LOC HEX 
XXXXXXXX 



Symbol 

TaMc 

Option 



Cross Ref. 
List Optio 



f VARIABLEN 

NAMEXXXX, VVV 

SYMBOL 

' XXXXXX 
I XXXXXX 



XXXXXXXX 



TYPE 



COMPLEX 



CLASS 



STATEMENT NOt 
VARIABLE 



SIZE(BYTES} 
16 



f SYMBOL 
tvARIABLEl 



SIZE XXXXXX BYTES 
SIZE (BYTES) 
XXXXXX 



XXXXXX 

SIZE XXXXXX BYTES 

SIZE XXXXXX BYTES 
SIZE XXXXXX BYTES 
SIZE (BYTES) 

XXXXXX 

XXXXXX 



XXXXXX 

SIZE (BYTES) 



SIZE XXXXXX BYTES 
SIZE (BYTES) 
XXXXXX 



XXXXXX 



STORAGE CLASS + OFFSET 



CODE 

NON'COMMON 



3E8 

280 



DEFINED 

LINE NO.t LINE NO.. 



REFERENCED 

LINE N0», LINE NO. t 



An INSTRUCTION entry i s edited in two 
parts. The hexadecimal representation of 
the instruction, as given in the code file, 
is edited first. The second part contains 
an assembly- like entry of the instruction. 
The operation field is translated to the 
corresponding mnemonic; the operand fields 
are converted to decimal integers and are 
rearranged with the appropriate 
punctuation. 



A COI#dENTS entry consists of a descrip- 
tion (if available) of the second operand. 
It may contain one of the following: 



NONCOMMON VARIABLES OFFSET 



VARIABLE 3. 
VARIABLE2 



OFFSET 

OFFSET 



SIZE 

SIZE 
SIZE 



The LIST documentation level includes 
description of alphameric constants, 
address constants, and parameter lists. 
For each address constant, EDIT supplies 
the following information: 

LOCATION/CONTENTS/CONTROLSECTION/STORAGE 
CLASS 



1. Nane of a variable, where all sub- 
scripted variables are represented by 
the array nan^ only. 

2. Label %rtiich appears as a statement 
number. 

3. Constant, shoiim as a literal. 

4. Address constant, edited to give 
results in the form 



STORiySE CLASS NAME 



OFFSET 



EDIT uses a descriptor entry in the code 
file to obtain information for the COMMENTS 
field. The descriptor trails the respec- 
tive instruction and points to the appro- 
priate symbol table entry. 

The representation of numeric constants 
has entries similar to the object code, 
with the following exceptions : 



1. 



LINE NO. 
apply. 



and LABEL entries do not 



2. The COMMENTS entry is omitted. 

The symbol table provides EDIT with the 
necessary information to list numeric 
constants . 

After completing the editing of the 
CSECT, EDIT processes the PSECT. At the 
basic documentation level, PSECT is edited 
as follows: 

PSECT NAME SIZE 

REGISTER SAVE AREA 

ADDRESS CONSTANTS 

PARAMETER LISTS 

NAME LISTS 

ALPHAMERIC CONSTANTS 

NONCOMMON VARIABLES 

LOCAL TEMPORARY STORAGE 

GLOBAL TEMPORARY STORAGE 
At the MAP level, the NONCOMMON 
VARIABLES entry is expanded to include 
individual variable names. 





SIZE 


OFFSET 


SIZE 


OFFSET 


SIZE 


OFFSET 


SIZE 


OFFSET 


SIZE 


OFFSET 


SIZE 


OFFSET 


SIZE 


OFFSET 


SIZE 



LOCATION gives the offset of the adcon 
from the PSECT base. CONTENTS is the value 
of the adcon. CONTROL SECTION gives the 
name of the referenced control section, and 
STORAGE CLASS refers to the particular 
class in that control section, such as 
code, numeric, alphameric, etc. 

For any COMMON control section, EDIT 
produces, at the basic documentation level, 
the name of the section and its size. The 
MAP and LIST levels expand each COMMON 
entry with a listing of variables. The 
format is similar to the representation of 
NONCOMMON VARIABLES in the PSECT. 

The editing of COMMON cntrol sections 
completes the work of EDIT on the OPM. 
Symbol table and cross reference Index 
option flags are examined, and, if 
selected, the appropriate table is edited. 



CEKSJ — Symbol Table Sort (SYMSRT) 

SYMSRT produces, upon request, an alpha- 
betical listing of items in the symbol 
table, as shown in Figure 39. See Chart 
GS. 



ENTRIES ; SYMSRT has a single entry 
(CEKSJl) from PHASES. PHASES uses the 
INVOKE macro to call SYMSRT. 

EXITS : Normal exit only. No output 
parameters. 

OPERATION : PHASES inspects an entry in the 
intercom to determine if the user desires 
an output listing of items in the symbol 
table. Should this option be selected, 
PHASES invokes SYMSRT, which provides an 
alphabetical listing of the following 
itens: 

1. Entry names. 

2. NonCOMMON variable names. 

3. COI#ION variable names. 



Section 7: Phase S 211 



*♦. External names. 



CEKSL — Constant Conversion CCONCV) 



5. NAMELIST names. 

In addition to writing the name of the 

item, SYMSRT writes its type, class, 
storage class, and offset from base of 
storage class, where these items are 
applicable. 



CONCy converts constants (integer, real, 
or complex) to EBCDIC code for output in 
documentation of a FORTRAN- compil ed pro- 
gram. See Chart GT. 

ENTRIES: CONCV has a single entry CCEKSLl) 
and is invoked by subroutine EDIT. 



Type 
Class 



1*2, I*«l, C*8, R*i», etc. 

Array variable, simple 
variable, entry name, 
ext e rna 1 name , et c . 



Storage Class - Code, nonCOMMON, named COM- 
M>N, etc. 

Immediately following the listing of the 
items (explained in the preceding discus- 
sion) , a listing of labels, both source- 
generated and compiler- genera ted, are out- 
put in ascending order. 



CEKSE — Output Page Heading (PHEAD) 

CEKSE produces the page heading for each 
page of output listing generated by PHASES. 

ENTRIES t PHEAD has asingle entry (CEKSE1> 

and is invoked by: 

EDIT 
SYMSRT 
CRFSRT 
CONCV 

CEKSE expects one input parameter in 
register PI for initializing the line-count 
counter. The value must be 0, 1, or 2. 
The value passed is subtracted from some- 
constant, and the line count counter is 
initialized to the result. 

EXITS : Nornal exit only. No output 

parameters. 

OPERATION ! Upon entry, CEKSE does the 
f ollomng : 

1. Initializes a cell in the phase* s work 
area that is used as a line count 
counter (i.e., the number of available 
lines left on the current output 

page) . 

2. Skips to a new page. 

3. Forms and writes a page heading for 
the new page. The heading consists of 
the module name, the date, and the 
page number. All three items may be 
found in the phase's copy of the 
intercom. 



Input Parameters 

A parameter register passed to subrou- 
tine CONCV contains the address of a con- 
stant' s descriptive entry in the symbol 
table. 

EXITS : Normal exit only. No output 
parameters . 

OPERATION ; While EDIT edits the code file 
to generate the output listing, any comment 
entries that refer to constants cause EDIT 
to invoke subroutine CONCV. CONCV con- 
verts, formats, and writes the constant and 
its offset in the code control section. 

A parameter register passed to subrou- 
tine CONCrv contains the address of the con- 
stant's descriptive entry in the symbol 
table. From the descriptive entry, CONCV 
determines the following: 



1. The constant type 
complex. 



integer, real or 



2. The length of the constant - two, 
four, eight, or sixteen bytes. 

3. The address of the constant itself. 

4. The constant's offset from the base of 
the CSECT. 

The first three items are used to con- 
vert and write the constant in the correct 
format, and the fourth item is written in 
hexadecimal, as additional information for 
the user. 



CEKSK — Cross Reference List Routine 
(CRFSRT) 

CEKSK prints a cross reference listing 
for the variables (symbols) and labels, 
from the list generated by Phase 1. See 
Figure 39 and Chart GO. 



ENTRIES ; 
(CEKSKl). 



This routine has one entry point 



EXITS ; Only the normal exit is made, with 
no output parameters. 
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OPERATION : Upon entry, CRFS!(T makes a pass 
across the cross reference list which was 
generated by Phase 1. Each entry is 
examined. If it is a symbol reference, the 
symbol table pointer is used to get the 
symbol name. A table of symbol references 
is built in the code file with the follow- 
ing format: 

8 16 24 31 

J. ^ — , ^ ^ ^. — .. -J. ^ 

1 N I A t M I E I 
I X 1 X I Flag [Not Used I 
|. „x„_^ i ^^ X 4 

I Line N-imiDer | 

L- , . , -_ — - J 

where 

"NMiEXX" is the symbol name in EBCDIC 
Cor BCD) , lef- justified with trailing 
blanks. 

"Flag" indicators a reference (X'02") 
or a definition CX'Ol"). 

"Line Number" is the line number of 
the reference or definition, in packed 
decimal. 

If the cross reference listing CCRL) 
entry is a label reference, a table is 
built in the CRL, with the format 
unchanged. 

After all the original entries in the 
CRL have been sorted into symbols and 
labels, the sorting of each list is begun. 



First the symbol list is sorted in alpha- 
betical order, with definitions first in 
increasing line numbers, followed by the 
references, also by increasing line number. 
The logic involved in the sorting of the 
list is best explained by the accompanying 
flowchart (Chart ON). In this type of sort 
scheme, a "delta" is calculated which is 
one-half the list size. Each entry (i) is 
compared with the corresponding "i+delta" 
entry. If a switch is necessary, it is 
made. If a switch of two entries is made 
below a certain point in the list, more 
comparisions are made before stepping to 
the "i-i-1" entry. When the bottom of the 
list is reached, the delta is reduced to 
half its size and the list scanned again. 
When delta is zero, the sort is completed. 



After the symbol list has been put into 
proper order, the heading for the symbol 
cross reference listing is printed. The 
symbol "name" is printed on the first line 
of its group only. If more than one line 
of printing is necessary, the rest are 
single- spaced. When a new name is found, 
the first line is double- spaced to separate 
the groups. The line numbers are printed 
with two spaces between the last digit of 
one and the first significant digit of the 
next. Leading zeros of line numbers are 
not printed. 

After all the symbol list entries have 
been printed, the label list is sorted and 
printed in the same manner. 
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FORTRAN IV PLM (TAPE 3) 9701DD-3 



October 15, 1969 



SECTION 8 : FLOWCHARTS 



Each chart in this section is referenced 
from an associated routine described in an 
earlier section of this manual. The charts 
in this section are presented in the same 
order as are the routine descriptions. Not 
all routines are illustrated by charts. 



The flowcharts in this manual have been 
produced by the IBM System/360 Flowchart 
Program (Flowchart/360> , using USASI sym- 
bols. These descriptions of the USASI 
symbols and the Flowchart/360 conventions 
will simplify interpretation of the flow- 
charts in this manual: 



SYMBOL 



DEFINITION 



♦ » 



The processing block indicates any processing function, or 
a defined operation that causes change in value, form, or 

location of information. 



*♦♦♦♦*♦*♦♦**»♦**♦ 



♦CZ0ZZ1 0fi8A3* 

* * 

* * 



When this block is striped, it indicates the entry point of 
a subroutine or module that is included in the flowcharts 
in this manual. System/360 Flowchart automatically gene- 
rates a page-and-block locator (048A3 in this illustration) 
that specifies the page with this entry point- See below 
for an explanation of page-and-block locators. 



* * 

* -CHKSiTCH- ♦ 

* * 

«♦♦««♦ ♦#«4(«4ic**4e«« 



When a call is made to a subroutine that is not in a flow- 
chart, but is described in this manual, the call is shown 
in a processing block without the stripe and the subroutine's 
entry point is shown. 



* * * ♦ 

* * * ♦ 

♦ * ♦ ♦ 

* * * ♦ 

♦ * ♦ * 

♦ ♦♦♦«««♦«« **4c4c«4c* 



The library or predefined process block indicates a module 
or subroutine that is in the flowcharts of another PLM. 
Whenever possible the entry point of the module or subroutine 
is listed. Refer to the Flowchart Directory in IBM System/360 
Time Sharing System; System Logic Summary , Form Y28-2009. 



El 



The decision block indicates a decision- or switching- type 
operation that determines which of a number of alternate 
paths should be followed. 



F1 *. 

. * ♦. 

, ♦ BRMfCH *. 

♦. COIDIflOi.* 
*. . * 



When there are more than three alternatives, a branch table 
is generated. 



^^^031A1 

.2..QiQ42 
1 031A3 



2m 



H1 

czazoo 



017A1 



When the decision process is so involved that a detailed 
flowchart is required, the decision block is striped, and 
the page-and-block locator is generated as for the pro- 
cessing block. 



*♦♦ J 1* *♦♦♦♦♦♦♦*« ♦,^s_ 



^m*************** 



The I/O block indicates the general I/O functions, which 
include (but are not limited to) the GET, PUT, READ, WRITE, 
or device-control macro instructions, and the SIO instruc- 
tion. Wherever possible, the entry point of a macro in- 
struction processor is shown. 



♦*K 1******* 



The modification block indicates an instruction or process 
that changes progrsum operation, e.g., sets a switch, modi- 
fies an index register, or initializes a routine. 



1^ ^utm^m^miif** 



C20VER OOtlAl 



If the modification is performed by a subroutine that is 
included in a flowchart in this PLM, the modification block 
is striped and a page-and-block locator is generated. 



4e * 4t « * * 4( 4c ♦ ♦ * 



♦[♦♦*1ft2*** ****** 



#4(4E'4(4(4(*4c3|(4t4i**#* 



The terminal or interrupt block indicates a terminal point 
in a flowchart. It is used to show start, stop, halt, delay, 
or interrupt. The terminal block is always used for either 
entry to a routine or for exit when a routine has completed 
its processing, and will not be reentered for the same ser- 
vice request. This block is also used for macro instructions 
such as ABEND, EXIT, and RETURN. 



♦ ♦♦♦"^2********* 
*CZZOOZ 025B2* 

*- 4. 4> 

* * 



The terminal block will be striped if the exit is to a rou- 
tine that is included in a flowchart in this PLM. A page- 
and-block locator is automatically generated when this block 
is striped. 



BH 



The on-page connector indicates exit to or entry from a block 
on the same flowchart page. 



♦ 001* 

♦ B2* 



The off -page connector indicates entry from or exit to a 
block on another page of the same flowchart. Note: Exit 
to another flowchart in this PLM is indicated by a striped 
block. 



Page-" and" Block Locators 

The page-and-block locator generated for off-page connectors 
and striped flowchart blocks Xs' a five- character string. The 
first three characters indicate the flowchart page on whl.ch 
the transfer address is located. This page number is rela- 
tive to the first flowchart page and appears in the upper 
right corner of each flowchart. The last two characters 
indicate the block at which the entry point is defined on 
the referenced page. 
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Chart AA. Executive Overall Flow ^ — ■ CEKUA (Page 1 of 2) 



PAGE 001 



FNTE 



I 

I 

RESTA8T V LDCLOSE 
♦CEKTHB 02iA5* 
*CIOSE LIST DATA* 



INITIALIZE 

GETWAIN PBOCE 

LPC PARkHEIEA 

ETC, 



FOItT.iAN 
V Cu^TIN"E 



•PHASES J, 4, 5 



LPC ^C FOPTRAr 

EARLY END FREE 

ALL «AI» 



COiFIL 
002A5* 



Fc<i:E ALL MAIS 
EX^'EPT OBJECT 

y.Ou'JL? PASS 
OBJECT HODOLE 



LDCLGSS 
02JA5* 



THE LIST 



FOBTRAN 
INITIAL 

TO LPC 



PHASE 1 

• ENTER 



RETUBM 



CEKTB SODOLE 
USED FOR HOHK 

AEEAS ASD 
COMHOHICATIOS 



GMSS 

••"•'tii''' '■*♦****** 

CEKTCA 002A1* 



OLa 
023A3* 



V DIAGOOT 

CERTHD 001F5* 

ADD LINFS TD * 

LIST DATA SET ♦ 

AND COSSOLE * 



LIST '>iT.n 



¥ RDM 
^iitm'*:*ii'l*m* ******* 

• CEKTEl OOlfii* 

• EDS IS CALLED * 
*TO OOTPUT DliG-* 

• SO'STIC MSGS. * 



* IF CON?ERSA- 

* TIOMAL, CALL 

* POTDIAG TO 
*O0TPI!T COMSOLE 

* «FS SAGES. 
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Flowcharts on pages 217-630 were not scanned. 



APPENDIX hi INTERPHASE TABLE AND FILE FORMATS 



PROGRAM REPRESENTATION FILE CPRF) 

Program Representation File entry iden- 
tification values are as follows: 



Identification 



Entry Name 


Code C16) 


Begin Program 


1 


Subprogram Entry 


2 


Alternate Entry 


3 


Label Definition 


H 


Equation 


5 


Unconditional 30 TO 


6 


Assigned GO TO 


7 


Computed GO TO 


8 


ASSIGN 


9 


Arithmetic IF 


A 


Logical IF 


B 


CALL 


C 


Argument Definition 


D 


Point 




RETURN 


E 


Begin Loop 1 


F 


Begin Loop 2 


10 


Begin Loop 3 


11 


End Loop 


12 


CONTINUE 


13 


READ 


14 


READ with Namelist 


15 


READ without Namelist 


16 


WRITE 


17 


v^RITE with Namelist 


18 


PRINT 


19 


PUNCH 


lA 


Output List Element 


IB 


End List 


IC 


File Control 


ID 


STOP 


IE 


PAUSE 


IF 


End Program 


20 


Input List Element 


21 


Field Identifiers 





BL3PT 12 



BEG 10,12 



BLIPT 12 



BL2PT 12 



CDP 5,A,B, 
C,ll, 
21 



CEX C 



CNT IE 



EDLNK 11 



END 10,12 



EOF 14,15 



All fields marked "not used" contain 
zeros. ID appears in every item and iden- 
tifies the kind of item. Other fields, the 
IDs of the items in which they appear, and 

explanations of the fields, are: 



Field IDs 
ABN 5,A, B 

ALAB 9 



ASTX 



2,3 



Expla nation 
Abnormal Function flag. 

Symbol Table pointer to 
label descriptive part 
entry . 

Symbol Table pointer to for- 
mal argument descriptive 
part. 



ERR 14,15 



ESLOC 4 



PRF pointer to corresponding 
Begin Loop 3. 



Symbol table pointer to low- 
er loop limit descriptive 
part pointer. 

PRF pointer to corresponding 
Begin Loop 1 . 

PRF pointer to corresponding 
Begin Loop 2. 

In Phase 2, zero; or a link 
to the previous PRF entry 
in which COMMON was rede- 
fined. Redefinition is 
either by a call on an 
abnormal subprogram or by 
definition of a formal argu- 
ment called by name. Or, a 
link to the previous PRF 
entry in ^irtiich a COMMON 
variable was defined. 

EF pointer to subroutine 
entry, in call (;> expres- 
sion, or alone if no 
parameters. 

No. of characters in 
mess age - 

PRF pointer to corresponding 
End Loop entry. 

Symbol Table pointer to up- 
per loop limit descriptive 
part entry. 

In Phase 1, label value in 
binary of End-of-file 
return. Negative if 
reference is to next 
statement. 

In Phase 2, Symbol Table 
pointer to label descriptive 
part entry. 

In Phase 1, label value in 
binary of Error return. 
Negative if reference is to 
next statement. 

In Phase 2, Symbol Table 
Pointer to label descriptive 
part entry. 

Estimated location in object 
program. 
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ETRA A 

EXITLB 



FLAGS 4 



FLAGS in, 16, 
17,19, 
lA 



Zero branch. 

Symbol Table pointer to 
label outside a loop 
branched to from within a 
loop ■ — Set by Phase 2 for 
determining Materialize on 
Exit optimization in Phase 
3. 

Bit 7~Statement is labeled, 
but must be referenced. 

Bit 1 - Non-zero indicates 
no list with I/O statement 
CX"80« ) . 

Bit 2 - Non-zero indicates 
LABF is an expression file 
Pointer CX"t>0« ). 



LEV 



LINO 



LLNK 



FLAGS 11,12 (Left to Right) 



FNSW ID 

GLAB 11,12 

GLNK 6,7,8, 
A,B, 
C,ll|, 
15 

GTRA A 

ILNK all 

INC 10,11 

IVAR 10,11 



LABF 14,16 
19, lA 



LABN 15,18 



X' 


'80" 


X" 


40» 


X' 


'20» 


X' 


10' 


x« 


'08« 


X' 


'04- 


X' 


,Q2« 



X'Ol* 



Labels in Loop 
Unsafe Loop 
Materialize 
Parameter 

Global Flag C inner, 
no external calls) 
BXLE on Rec 
ONEASN (remove 
floating load) 
lOFLAG (Phase 1) 



LLNO 



LTRA 



for END FILE 

1 for REWIND 

2 for BACKSPACE 

Symbol Table pointer to 
created loop top lat>el 

descriptive part entry. 

Link to previous PRF entry 

containing a label reference 



Positive branch. 

Link to previous PRF entry. 

Symbol Table pointer to loop 
increment descriptive part 

entry. 

Symbol Table pointer to loop 

variable descriptive part 
entry- 

Symbol Table pointer to 
FORMAT label descriptive 
part entry or Expression 
File pointer to Format vari- 
able name. 

Symbol Table pointer to 
Namelist descriptive part 
entry. 



MSG 

NARG 
NOEL 



ODP 



OPDl 



OPD2 



11 Level of nesting of this 
loop. 



all but Line number in packed 

1,4,0, decimal. 

10,11, 

12, IB, 

1C,20, 

21 



2,3,4 



6,7,8 

C 



IE, IF 



2,3 

6,7,8, 

l^f B,C 



ODLNK 11 



7,8,9, 
IB, 21 



PDLNK 11,12 



In Phase 1, link to previous 
PRF Entry or Label Defini- 
tion entry. 

In Phase 2, link to previous 
PRF Entry or referenced 
Label Definition entry. 

In Phase 3, link to previous 
PF entry or referenced label 
definition entry. 

In Phase 1, label number is 
binary. Negative if 
reference is to next 
statement. 

In Phase 2, Symbol Table 
pointer to label descriptive 
part entry. 

In Phase 1, label value in 
binary for negative branch. 
Negative if reference to 
next statement. 

In Phase 2, Symbol Table 
pointer to label descriptive 
part entry- 

X* 00008000* if reference to 
next statement. 

Symbol Table pointer to 
alphanumeric message des- 
criptive part entry. 

Number of ASTX fields. 

Number of LLNO fields. Set 
by phase 2 for IDs 10,11. 

PRF pointer to Begin Loop 3 
entry for next outer loop. 

EF pointer to variable or 
subscripted variable. 

EF pointer to left side 
variable or subscripted 
variable expression. 

EF pointer to right side 
expression. 

Link to previous PRF Begin 
Loop 3 or End Loop entry. 
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PLAB 

PLIB 

PNAM 

RIND 
RVAR 



SLIB 



STNO 



TTRA 



TVAL 
UNIT 

VAR 



IF 

2,3 

E 
E 



IE 



Pointer to created Label 
descritpive part entry if 
flow into Entry statement. 
Set to X'8000' if no flow. 

Symbol Table pointer to 
PAUSE subroutine descriptive 
part entry. 

Symbol Table pointer to 
Entry Name descriptive part. 

Return indicator. 

If RIND = 0, for unindexed 
return, or constant index. 

If RIND * 0, Expression File 
pointer to variable. 

Symbol Table pointer to STOP 
subroutine descriptive part 
entry. 

In Phase 1, label value in 
binary. 

In Phase 2, Symbol Table 
pointer to label descriptive 
part entry. 

In Phase 1, label value in 
binary for true branch. 
Negative if reference to 
next statement. 

In Phase 2, Symbol Table 
pointer to label descriptive 
part entry. 

EF pointer to text 
expression. 

Expression File pointer to 
unit designator descriptive 
part entry. 

Symbol Table pointer to 
variable on left side. 

Symbol Table pointer vari- 
able descriptive part entry. 

Link to previous PRF entry 
in which variable was 
defined. 



Begin Program C** bytes) 

I ID = 1 |Not Used I IIMK = X»8000« | 



Subprogram Entry (Variable Length) 



A,B 



14,15 

17,18, 

ID 



VAR 


D 


VDP 


5,D, 




10,21 


Entry 


Formats 



ID = 2 



NARG 



ILNK 



H- 



PNAM 
LLNK = X'8000* 



K— 



-H- — 

I 

J. 



X'8000' 
ASTX 



ASTX 



ASTX or Not Used 



H- 



LINO 



Alternate Entry (Variable Length) 



J. . — ^^ .^ 

I ID = 3 

H- 



I NARG I ILNK 

PNAM I PLAB 

^ 



LLNK 



ASTX 



I- 

I . 

I 



ASTX 



I ASTX or Not Used 



X- 



LINO 



I Label Definition (12 bytes) 



I ID = 4 I FLAGS 
1^ ^J 



ILNK 



LLNK 



STNO 

r — 



ESLOC 



Equation (10 bytes) 



j ID = 5 i ABN j ILNK 
I OPDl I VDP 



OPD2 



I 
-X- 



CDP/VAR 






LINO 



Unconditional GO TO (16 bytes) 



I ID = 6 I NOEL = 1 I ILNK 

I GLNK I Not Used 

I LI^O 



LINO 
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Assign ed-GO-TO- CVariable .Length) 



ID = 7 



NOEL 



I GLNK I 
I LLNO 



ILNK 



OPD 



-H 



h 



LLNO 



LINO 



1 

I 
1 

-i 

I 

— — I 
I 



Computecl GO TO (Variable Length) 
J.- , — -^-.^ ^-. ^-. . — . 

ID = 8 I NOEL I ILNK 



GLNK 



OPD 



JL — 

LLNO 



-H 



LLNO 



LINO 



—J 



ASSIGN CI 2 bftesi 



ID = 9 I Not Osea I ILNK I 

OPD I MAB I 



LINO 



— J 



Arithmetic IF C28 bytes) 

I ID = A I ABN I ILNK | 

GLNK I CDP I 

T¥AL I Not used | 



LTRA 



I 



ETRA 

GTRA I 



LINO 



CALL (Variable Length) 



ID = C I 



h 

I 

I- 

I 
I- 



.^ . ^ — 

NOEL I 

X ^^. 

GLNK I 

~ . +-- 

CEX I 

X 

LLNO 



ILNK 
CDP 
Not Osed 



t I 



LLNO 



LINO 



Argument Definition Point C8 bytes) 

g. . — . — . — ^ ^ . .^. 

I ID = D I Not Osed I ILNK 
|. i + 

I VAR 1 

L , . ^ . ^.J 



VDP 



RETURN C12 bytes) 
I ID = E I RIND 



ILNK 



1 

1 

1 


Not Osed 


+ 

1 

L 


RVAR 


i i 

L_l_i 




LINO 





I Begin Loop 1 C8 bytes) 



I ID = F I Not Used I 
I LINO 



ILNK 



"H I— 



Begin Loop 2 (16 bytes) 
ID = 10 I Not Used I 



IVAR I 
I BEG I 



END 






I 



ILNK 
VDP 
INC 
EXITLB 



I 






i 

I 



Logical IF 120 bytes) 

ID = B I ABN I ILNK | 

GLNK I CDP I 

1.^ 4 



TVAL 



Not Used 



.~j. — 
TTRA 



LINO 






-i 



lunc 



I t 



Begin Loop 3 (16 bytes) 

I ID = 11 I Not Used I 

|. X ^ 1 

I EDLNK I PDLNK | 

ODLNK I Flags | LEV [ 

|.- + X ^ 



CDP 



GLAB 



634 



End Loop C24 bytes) 



CONTINUE (8 bytes) 



READ C24 bytes) 



ID 



12 I 



Flags 



BL3PT 
IVhM 



ILNK 
PDLNK 



BEG 
END 
BLIPT 



GUUB 
INC 



I 



Not Used 
BL2PT 



.^ y ^- 

ID = 13 I Not Used | 

i. -^ J.- 



ILNK 



LINO 



ID = l«l I Flags 



LABF 



I 

I 



ILNK 
UNIT 



ERR 



GLNK 



EOF 



Not Used 



— .^x — 
LINO 



READ with Namelist (24 bytes) 



ID 



15 I Not Used I 
X +. 

LABN I 

. , J.- 

ERR 



ILNK 
UNIT 



EOF 



GLNK 



T — 

I 

X — 

LINO 



Not Used 



READ without Unit (12 bytes) 



.- — ^^ ^ — ^-. .- 

ID = 16 I FLAGS j ILNK 

LABF I Not Used 

^ -- .. X . . ^ -^ 



-4 



-H 



-H 



J 



-H 



-^ 



LINO 



I 

4 

I 

4 

I 

I 



WRITE (12 bytes) 






1 ID = 17 1 FLAGS 

L X -. 


1 


LINK 1 
J 


1 LABF 


1 


1 

UNIT 1 

J 


r 1 
1 LINO 1 


WRITE with Namelist 


. (12 byti 


5S) 


1 ID - 18 1 Not Used 1 


ILNK 1 
J 


1 LABN 


1 

X 


UNIT 1 
1 


1 LINO 1 

L _ J 


PRINT (12 bytes) 


r "* *" T"" ~ 
1 ID = 19 1 FLAGS 

L - X 


1 


1 
ILNK 1 

" 4 


r 

1 LABF 


1 


Not Used 1 
1 


1 LINO 1 

L _ - - J 


PUNCH (12 bytes) 


r "* "" T"" - - "^ 
1 ID = lA 1 FLAGS 

L X - - - 


T 

1 


ILNK 1 

_ J 


r — -1. - - - 
1 LABF 

L -. - - - 


1 


1 

Not Used 1 

I 


1 LINO 1 


Output List Element (8 bytes) 

r - T — T - - - 1 

1 ID = IB 1 Not Used | ILNK | 

L— — — X— X J 


1 Not Used 


1 


1 
OPD j 

_ — —J 


End List (4 bytes) 

1 ID = IC 1 Not Used 1 

L- - X X- 


. ^^ 

ILNK 1 
J 


File Control (12 bytes) 


1 ID = ID 1 FNSW 

L « I. . 


T 

1 

- —X — — 


lOiK 1 


t Not Used 


T 

1 

4._ _ 


UNIT 1 


r — — — 
1 

STOP (12 bytes) 


LINO 




1 ID = IE 1 CNT 
L — X 


1 
1 

1 


ILNK 1 


1 SLIB 

1 „. ,. 


nSo 1 


r — - - -J 

1 LINO 1 

L J 
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PAUSE C12 bytes) 



r 

I ID 

I 

I— 

I 

i.-. 



IF 



CNT 



PLIB 



I 

.„jL — 

LINO 



ILNK 
MSG 



End Program C4 bytes) 



^ — .^^ J. .-^ 

I ID = 20 I Not Used | 



ILNK 



ILNK 



Input List Element C12 bytes) 

J. , — ^ — ^ , — ^ 

I ID = 21 I Not Used I 

I OPD I VDP 

I CDP/VAR I Not Used 

L . ^ X ^, .-^. 



STORAGE SPECIFICATION TABLES 



Common Variable Table Format 



One entry per COMMON statement starts on 
a word boundary. 



J.-, . — ^ ^ . — — ^ . . — 

I ID = I Not Used 

^ ^ X ^„. 

I Line Number 

|., ^ ^ ^ 

I TERM* I Storage | Symbol Table Index 
I I Class I 

|.„^ ^^^X , X 

I — ^„„„^^ ^„„ , 

I TERM* I Storage | Symbol Table Index 
I I Class I 

L X X ^ . . 

* No n- Zero denotes terminal entry. 
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EQUIVALENCE Entry 

One entry per EQUIVMiENCE statement. Entries start on a word boundary - 



J. ^ ^ -, ^ ^ -^ . . ^ 

EQUIVALENCE | ID=1 | END=0 | Number in Group (2 bytes) | 

|. X ^, -L- » — . — ^ , \ 14 bytes 



IDENT 


1 

J. - 


Line Number 


1 

_ X- - «- 


EEl 


[ Symbol 

L — - 


T 

Table Pointer | 

X- 


Type 


1 Offset 

_x - 


or Number of Sybscripts | 

.. _, ^ J 














EE2-5 


r T 
|S| 
L X 


Subscript 




|si 

-XX 


„ .^ . — . — ^ 

Subscript | 

— _ — J 














EE6 


J- 

1 Symbol 


Table Pointer | 

. X- 


Type 


1 Offset 

-X 


- - ^ . - - -. — ^ 

or Number of Subscripts | 








EE7-10 


fT — 

|S| 

•— ^— T 

1 

1 Symbol 
I 


Subscript 

^ ^ — ., — , 

ID=1 1 END=0 

Table Pointer | Type 

.. . , . X . 


|S| 

_X— X 


Subscript 1 

1 


EEl 


T T 

1 Number in Groups | 
.^.„ ^ ^..x „, 

1 Offset or Number of Subscripts | 

1 ,_ „, _ _ _ _ ,,„ 1 








EE2-5 


r-T- — 
|S| 

i X 


Subscript 




|S| 

.X X 


.^ - - — — « ^ 

Subscript t 

, _ — J 














EE6 


1 Symbol 

L 


Table Pointer | 


Type 


1 Offset 


.«_ _ ^ 

or Number of Subscripts [ 

^ , J 








EE7-10 


r^T — — " 

|S| 

L X — — 


Subscript 




"T-'T'"-"""""'" 
|S| 

_X— X - - 


- — — . . — — ^ 

Subscript | 

1 


EEl 


^1 

1 Symbol 


ID=1 1 END= 
„X ^^, 

Table Pointer | 


=1 

Type 


T T 

1 Number in Groups | 

1 Offset or Number of Subscripts | 

_x ^ J 














EE2-5 


r T 
|S| 

L X 


Subscript 




"T T~ ~~ " 
|S| 

_X X— 


Subscript j 














EE6 


r~" 

1 Symbol 


Table Pointer | 

X- 


Type 


1 Offset 

-X 


or Number of Subscripts | 














EE7-10 


|S| 

L-X 


Subscript 




|S| 


Subscript | 



6 bytes 
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EQUIVALENCE Entry 
Field Identifiers 



Field 



ID 



END 



TYPE 



Number in Group 
Offset/Number of Subscripts 



Explanation 

1 = EQUIVMJENCE entry 

= COMMON entry 

1 = end of group 

= not end of group 

Identifier type may be: 1, 2 

Unknown COO) 
Integer *2 (1,2) 
Integer *f* C3,2) 
Automatic C , 7 ) 
Real *4 (3,3) 
Real *B C7,3) 
Complex *8 C7,4) 
Complex *16 CF,4) 
Logical *4 (3,1) 
Logical ♦! (0,1) 

Number of ^^ariables in a specified EQUIVALENCE entry 

In the eirent that dimension information for a particular 
variable (from a DIMENSION, COMMON or TYPE statement) 
precedes the EQUIVALENCE statement, or that a subscripted 
variable in the EQUIVALENCE statement contains only a 
single subscript, the offset in EEl or EE6 is computed. 

'^hen dimension information does not precede the EQUIVA- 
LENCE statement and a subscripted variable in the EQUIVA- 
LENCE statement contains more than one subscript, EEl or 
EE6 contains the number of subscripts. In this case EE2 
or EE7 are required, and EE3-5 or EE8-10 may be required. 

High-order bit: 

1 = negative subscript 
= positive subscript 
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Field Identifiers 

Field 
NUMB 

BPA 

VC 

DM 

Flag (Cross Reference List) 



Explanation 
Number of dimensions 

Bytes per array 

Variable/constant switch 

Integer constant value if VC = 
Variable, Symbol, Table pointer if VC = 1 

1 - symbol table pointer definition 

2 - symbol table pointer reference 

3 - label value definition 

4 - label value reference 



Entry Formats 



Dimension Table 



Declared array not a formal argument 



I NUMD I 
i ^- 



BPA 



NUMD-1 : 



I— 



Bytes Per Entry ♦ First Dimension 






-^ 



|._^ ^^ ^^ — — ..^.^ — ^ „4 

I Bytes Per Entry ♦ Product of First NUMD - 1 Dimension | 



Declared array a formal argument 



NUMD 



j NUMD j 

I VC I DM 

^ — — X — — — ^-„- 



I VC I 

t ^ L, 



I 

— 4 



DM I 
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Alphameric Table 



j.« . . — . ^- 

I ContiBuation Link | 

^. . X- 



Not Used 



I Line Number 

^ ^^^ , ^ „ .^^. 

[Descriptive Part Pointer Size CBytes) 

|.. ^ ^ ^^ , ^ ^. 

fill 
I i I I 



I 



I 



Namelist Table 
r*" 



Symbol Table 
I Pointer of 

I Variable J. 



Symbol Table 
Pointer of 

Variables 



H" 



Symbol Table 
I Pointer of 

I Variablen-i 
L , 



I Symbol Table 
I Pointer of 
I Variablen 

-.i«-« 



Data Table 



Continuation Link [Symbol Table Pointer 



Offset 
C3 Bytes) 



j Number 
I of Values 



k- 



Repetitions 
C3 Bytes) 



Length 



in- 



constant I 
Type I 



Number of Values 



Value 



I Constant | 
I Type I 
I -^ 



Value 



Cross Reference List 
y. ^ — ^< .^ — 



I- ~ 

I Flag 

L . 



Line Number 

S.T.P. or L.V, 



EXPRESSION FILE (ERF OR EF) 

The expression file is formed of indivi- 
dual strings of entries, each with the fol- 
lowing general format: 



J.-, — . — ^ ^. — J. ^ 

I EFID I EF Flags | Content | 

|. X X- „.-. -I 

I Content (Continued) | 

L .^ , ^ J 

te described below, both the ID and the 
content may take one of two forms. The 
strings are the usual riqht-hand Polish 
notation. 

EFID - FF = Null entry 

Form 1: 

1 «* 7 

j.«.^. — ^ — J. <^ 

|0|Code|Type| 

i.«x X J 

Code: Variable Type: 1 Logical CD 

2 Logical (4) 

1 constant 3 Integer (2) 

4 Integer (4) 

2 Function 5 Real C4) 

6 Real (8) 

3 Residue of 7 Complex (8) 
removed 8 Complex (16) 
expression 9 Literal 

t* Operator, 
general 

5 Operator, 
common 

or removed 
express ion 

6 Adcon 

Form 2 (loop variables or parameters only): 

12 7 

[T"T Level 1 
1 1 1 I number | 

i-X-X I 

*— IV Flag 
IV Flag = Induction variable 
Level Number = Loop level 

EF Flags — Both forms use EF Flags as fol- 
lows (left to right, beginning with high- 
order bit) : 

X»80" Sign indicator (EFSIGNF) 
X«40« Subscript indicator (EFSUBS) 
X*20« Last use flag 

X^IO* Short form notation in I/O list 
X'80* Split recursive constant 

(Phase 3 only) 
X*40' Global floating point register 

quantity 

Content 

Form 1 (variables, functions, and 
constants) : 

^ ^ , -, 

I QUANT I 

^^^^. — ^^ ^ — ^ 

I ADCON I DISPL I 

t ^ . X , . -J 
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QUANT Symbol Table (Descriptive Part 

Pointer) reference to variable or 
constant 



Storage classes 128 to 253 correspond to 
formal arguments called by name. Storage 
class 254 is used for locations in the code 



ADCON 
DISPL 



Diiring Phases I and II this is the 
offset; during Phase III ADCON is 
made the Symbol Table reference to 
Adcon and DISPL is the immediate 
dis placement 



Note ; 

ADCON 
ADCON 



for subscripted variable 
FF for Adcon page 
reference 



Form 2 (operators) : 



OP 



NOT 
USED 



TRIAD 



NAME 



L 



OP Operator code: 

Code 
(16) 



/ 

4c« 



Operator 
add (- by negation) 
Multiply 
Divide 

Exponentiate 
Argument of closed 
function 

Argument of intrinsic 
function 
Closed function 
Equivalence ( . NE. by 
negation) 

Greater than (.LE. by 
negation) 

Logical AND (.NOT. by 
negation) 

Intrinsic function 
Subscript 

Less than (.^E. by 
negation) 

Logical OR (.NOT. by 
negation) 
Maximum 

recursive add ~ Phases 
3 and «* 

index add — Phases 3 
and i» 

duirany (to distinguish 
variables) — Phase 3 
only 



TRIAD Expression file reference (Phase 3) 

NAME For : operator, displacement 
(Phase 3) 

For common or removed expression, 
identifying number (Phase 3 and <♦) 



00 
01 
02 
04 

05 

06 

07 
08 

09 

OA 

OB 
10 
19 

lA 



.EQ. 



.GT. 



.AND. 



.LT, 



.OR. 



IB 
11 


MAX 

1 


12 


? 


13 


a 



Entry for 

Blank 

Common 



Entry for 
First 
Named 
Common 



STORAGE CLASS TABLE ( STCLTB ) 



Number of Named Commons 


Pointer to First 
Non-common Variable 


Number of Bytes in Storage 


Class 1 (Code) 




2 (Numeric Const.) 




3 (Alpha Const.) 




4 (Adcons) 




5 (Name - & Par. Lists) 




6 (Non-common Var.) 


„ 


7 (Global Temps.) 


. 


8 (Local Temps .) 





9 (Blank Common) 


Name 




Pointer to First Variable 


Number of Bytes in Storage 


Class 10 (1st Named Common) 




Name 




Pointer to First Variable 


Number of Bytes in Storage 


Class 1 1 (2nd Named Common) 


Name 




Pointer to First Variable 


^A 


A 1 




V 


V 


Numoer of Bytes in Storage 


Class n (nth Named Common) 


Name 




Pointer to First Variable 



Pointers are Offsets from Symbol Table Base and Indicate 
Origins of Each Chain of Variable Entries, n < 127 



covered by a special class of address con- 
stants, whose values are filled in by Phase 
5. 



Storage class 255 is used for estimated 
locations in the code and is converted to 
storage class 1 when the correct location 
is entered. 
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PROGRAM FILE (PF) FORMATS OUTPUT BY PHASE 3 

All the program representation file 
entries, except begin program (identifica- 
tion code 1) , are modified during Phase III 
and put into the program file. 

Field Identifiers 

The fields have the same meaning as for 
the program representation file entries, 
with the addition of the following: 

Field IDs Explanation 
BEG 10 Link to Polish string, 
INITIAL VALUE 

END 10 Link to Polish string, 
FINAL VALUE 

EXITLB 10 Symbol Table pointer to 
label outside the loop, 
where the induction vari^ 
able must be material- 
ized. If loop has no 
exit, then EXITLB= 
X'8000'. 

FLAGS F, 10, (Left to Right) 

Labels in loop 
Unsafe loop 
Materialize 
Parameter 
Global Flag (inner 
loop, no external 
calls) 

BXLE on recursive 
ONEASN (globally 
assign FP register 
6) 
X»01" I/O implied loop 

GLBL 1 F Names of global expres- 
to GLBL8 sions for this loop or 
Symbol Table reference, 
if Adcons. The names will 
have 7 000 J. added to them 
to distinguish them from 
Symbol Table references, 

GBLREAL 11 When the ONEASN flag is 
set, this field contains 
a PF pointer to the left 
side of an assignment 
statement which can be 
globally assigned to 
floating-point register 6 
by Phase 4. 

When ONEASN flag is off, 
this field contains eith- 
er a symbol table pointer 
to a simple real variable 
or constant which can be 
loaded into floating- 
point register 6 outside 
of the loop, or it con- 
tains X*8000*« 



X' 


80' 


X' 


ao* 


x* 


20» 


X' 


'10« 


X* 


08« 


X* 


-04* 


x« 


•02" 



INC 



IVAR 



10 Link to Polish string, 
increment value 



IVARSVE 

LABL 
LLNK 

PNAM 



RMVAL 
(Begin 
Loop 1) 



RMVAL 
(Begin 
Loop 2) 



10 



10 
4 



10 



Link to Polish string. 
If materialize flag is 1, 
this is the induction 
variable; otherwise it is 
a test expression for the 
first variable in RMVAL 
chain - 

Contains the PF pointer 
for IVAR saved for 
materialization on exit 
loop. 

Symbol Table reference 

Link to previous 
referenced label defini- 
tion entry. 

Symbol Table entry of the 
ENTRY name. This field 
is 'SOOO* if this is a 
main program. 

Link to chain of 
removed expression in 
Polish, with the format: 

Insert R 



Link to chain 
recursive removed 
expressions. 



RMVAL 11 Link to chain of 
(Begin common expressions which 

Loop 3) would be removable but 
for the loop variable. 

STCL 2 Storage Class Number of 
the respective argument. 

Entry Formats 

Subprogram Entry (Variable Length) 



NARG 



I ID = 2 I 

|. J.„ 

I PNAM 

I STCLi I STCLa 



I 



ILINK I 

^„»^^.-| 

PLAB I 

STCL3 I STCL 1 
X 4 



1 STCL 



NARG I 

-X- 



Filler When Necessary 



H 



LINO 
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Alternate Entry (Variable Length) 



I ID = 3 I 
I -^ 



NARG 



ILINK 



PLAB 



PNAM I 

STCLj. t STCL2 I STCL3 I STCL 

^ J. JL. i. -. 






STCL 



NAR3 



Filler /Ihen Necessary 



LINO 



Label C8 bytes) 



J. -J. . — ^- 

I ID = 4 I Not Used I 
!.___ ^^j. „+. 

I LABL I 

L, . . J— 



ILINK 
LLNK 



Equation C16 bytes) 



^ ^ — , ^. 

ID = 5 I Not Used I 

X 



ILINK 



OPDl 
CDP 



+- 



I 



0PD2 

VDP 



LINO 



^ . — -J.- 

ID = 6 [Not Used | 

. ^-X ^ x_ 



ILINK 



LABL 



(Not 
Used) 



LINO 



-^ 



I 
-^ 

I 

J 



-H 



^H 



Unconditional 30 TO CI 2 bytes) 



I 
-4 



I 

^j 



ASSIGN (12 bytes) 



H 1-- 



j. — . — . — ^-.-^ , — ^- 

I ID = 9 I Not Used | 



OPD 



II 
AI 



X. 

LINO 



Arithmetic IF (20 bytes) 



J. -«_-^ ^ , ^^- 

I ID = A I Not Used I 

L_. , „X X- 



II 



I 



rVAL 



LIRA 



CI 



;tra 



I 

_X- 



Nc 



LINO 



Logical IF (16 bytes) 

J. .--J. .^ . 

I ID = B [Not Used I II 

I TVAL I CI 

h 



Not Used 
j. 

I 



T^ 



LINO 



1 CALL (Variable Length) 



^ ^ — ._^_ 

I ID = C I 

— ^ .-X_ 



NOEL 



II 



I- 



I I 



CEX 
LLNOj. 



I 



CI 
LI 



Assigned GO TO (12 bytes) 



ID = 7 [Not Used I 

-_ X-, „X- 



OPD 



I 

X — 

LINO 



iij:nk 



Not Used 



1 



Computed GO TO (Variable Length) 



ID = 8 I 



NOEL 



I 



ILINK 



H- 



OPD 



LLNO 
NOEL 



I 
-X- 



LLNOa^ 



X— 

LINO 



Filler when 

Necessary 



-H 



-H 



LLNO 
NOEL 



Filler ^h 
Necessary 



I I 



LINO 



Argument Definition Point (8 byt 



^ , .-^ ^ — 

I ID = D I Not Used I 

I VAR I 

L . — . . X 



II 
VI 



RETURN (12 bytes) 



J. , .^ — , , — ^ — 

I ID = E I RIND I 

I RVAR I 

^ X>- 

I LINO 



II 

Nc 
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Begin Loop 1 (28 bytes) 
^ . — ^ ^^, 

I ID = F I Flags 1 

I- " 



RMVAL 



I 

-X- 



;lbl8 



LINO 



Begin Loop 2 C16 bytes) 



J.- . ^ — . . ^. 

I ID = 10 1 FLAGS I 



l~ 

I RMVAL 

I- ^- 

I BEG 



INC 
IVARSVE 



Begin Loop 3 C12 bytes) 



J. .^ — . — ^..--.^ ^-. 

I ID = 111 FLAGS I 



RMVAL 



;lab 



I 



I 



End Loop 



I ID = 12|LEV 
L— -. . . i. 



CONTINUE C8 bytes) 



j.« ^ — . — y . . ^- 

I ID = 13 I Not Osed I 



LINO 



READ C16 bytes) 



^ --^ — . 

I ID = 14| Flags 

I ^^ i„ ^ 



LABF 

EOF 



I 



^JL 

LINO 



ILINK 

GL3L1 



Filler 



ILINK 
IV AR 

END 
VDP 

EXITLB 



ILINK 

CDP 
GLBRiiAL 



ILINK 



ILINK 



ILINK 
UNIT 

ERR 






ILINK 
UNI 

ERR 



— ^-j 
I 

-H 
I 

—I 
I 

I 



-H 



READ with Naaelist (16 bytes) 
^ ^^ -, — ^ 

I ID = 15 I Not Used 1 

I LABN I 

I. . ^ ^^ 

I EOF I 

|. .^ ^„„ ^ J.^„^ 

I LINO 

L^ , .. -. ^ , 



READ without Unit (12 bytes) 

J. .^ . — , ^ _ , ^ 

I ID = 16 1 Flag | ILINK | 

|. X + . ^ ^ 

I LABF I X^SOOO" I 

j. ^ . ^„^ X ^ „^ 

I LINO I 

L ^ . . . ^___J 

WRITE (12 bytes) 

J- ^ , y . . , -| 

I ID = 17 1 Flags I ILINK | 

|. . X + ^ 

1 LABF I UNIT I 

|.™ ™„„^ X„. , ^ 

I LINO I 

L . ^ J 

WRITE with Namelist (12 bytes) 

J.- ^. ^ , ^ 

I ID = 18 1 Not Used I ILINK | 

|. X ^ _^ 

I LABN I UNIT I 

|. X ^ 

I LINO I 

L . . J 

PRINT (12 bytes) 

^. . — , ^ ^ ^ . . . — ^ ^ 

I ID = 19| Flags | ILINK t 
|. X + ^ 

I LABF I X«8000' | 

|. ^„«. ^ — ^ X . 4 

I LINO I 

L — . . ^ J 

PUNCH (12 bytes) 

J. . ^ .^^ .^^ . -. -J 

t ID = 1A| Flags | ILINK | 

|.„. ^ X +„_ ^ 

I LABF I X'8000" | 

^^. ^ X „„ ^^^ 

I LINO I 

L ^ J 

Output List Element (8 bytes) 

J. — . -^ ^^ , . — ^ 

I ID = IB I Not Used I ILINK | 
[. X ^„+ ^ 

j DPDl I Not Used t 

L -. . - X . J 

End List («^ bytes) 

J.- -J. .- ^— --^ — . , : ^ 

I ID = iCfNot Used I ILINK | 

L X X-^ , ^ . . J 

File Control (12 bytes) 

J. ^ . ^ ^ — . — ^ 

j ID = ID I FNSW I ILINK | 

I Not Used I UNIT 1 

^ — ^„, — X — «. ^ 

I LINO I 

i- . . . ^ . J 
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STOP C12 bytes) 

^ ^^- — «. ^ . . — . — . -, 

I ID = IE I CNT I ILINK | 

I SLIB I MSG I 

|. -.»-i. ^ 

I 



LINO 



t 



PAUSE tl2 bytes) 
CNT 



H- 



ID = IFJ 



ILINK 



PLIB 



MSG 



JL. 

LINO 






End Program (*» bytes) 
I ID = 20 1 Not Used I 

L- J. ^ JL- 



ILINK = 8000 1 

. . J 



Input List Element CI 2 bytes) 

J.. -J. . — J.- ^^ . ^ 

I ID = 21 1 Not Used I ILINK j 
I OPD I VDP I 

I CDP I Not Used I 



Label Reference 

(Displacement Supplied by Phase 5) 

I FE I I Symbol T. Pointer |^ 

I OP |R1 I X2 I B2 I I 
I I Mil R3| I I 

I I Symbol T. Pointer |^ 

i , ^ L— -, . . I 

^CADCON Entry) 
2 C LABEL Entry) 

End of Code 

^ ,. ^ — ^ . — ^ 

I FF I I 

L ^X . ^ J 



SYBffiOL TABLE 

The Name Part and Descriptive Part of 
Symbol Table entries are placed in the same 
storage area but are separated from each 
other J the two parts are therefore shown 
individually. 



General Format 



CODE FILE FORMAT 



Statement Header 



01 



H- 



1 




Line 


Number 




1 


Label 


Definition 










r 

1 


02 


1 


T 

1 

-X- 


Symbol 


T. 


1 
Pointer | 



RR Instruction 



OP 



-, ^ . — |.- 

I Rl I R2 I 

.J X -X- 



RX Instruction 

I OP I Rl I X2 I B2 I D2 | 
I I ST. Class I Symbol T. Pointer | 

L- J X I 

RS Instruction 

r" 

I 

H 



OP 



I Rl I R3 I B2 I D2 | 
. -4 X ^-^. J .^ 

I ST. Class I Symbol T. Pointer |* 

♦The second word - Descriptor - of an RS 
instruction is optional. 



Name Part Cat higher address portion of 
table) 



I 

I Name (Cont'd.) 

I LINK 



Name 

^ — 



I DPP I 

I DMLST I 

^X. ^ ^ — ^ , J 



Field 

NAME 

LINK 



DPP 
DMLST 



Description 
Identifier name in EBCDIC 
Link to next identifier 
entry in chain, otherwise 
X«80 — '^'END CHAIN". 
Descriptive part pointer. 
Dimension list pointer. 



Setting 
Phase 

1 

1 



1 
1 



Descriptive Part (at lower address portion 
of table) 

I ID I not 1 Class | Flags fType | OLEV | 
I = lusedl I I I I 
I 0-2 1 2-3 I f|-7 I 8-15 116-23 | 24-31 | 

I SLOC I STCL I 

|. .„^ „^ X 4 

I LINKF I NUMENT | 



I 



FDP 



I 
-X- 



LSTBDP 
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Setting 


Field Phas< 


s Description 


ID Variable Name =0 1 


CLASS Identifier class may be: 1 





= 


Unknown 


1 


= 


Simple variable 


2 


= 


Array variable 


3 


= 


Statement function 


4 


= 


External subprogram 
reference ^ 


5 


= 


Open CIntrinsic func- 
tion reference) 


6 


= 


LIB (Library function 

reference) 


7 


= 


Naroelist 


8 




Label - primary and 
secondary subprogram 
entry except primary 
function name 


9 


= 


Statement function 
argument 


10 


= 


OPENA CIntrinsic Fn 
with automatic typing) 


11 


= 


LIBA (Library Fn with 
automatic typing) 


12 


= 


MAX (MAX MIN Function) 


13 


= 


Function Name of Func- 
tion Subprogram 


14 


= 


Unknown Function 



FLAGS One-bit indicators which 

are: (Left to Right) 



X*80* Type Frozen 

X«40* Formal argument name 

X*20' Not Used 

X'lO* Defined 

X'08' Active induction variable 

X"04« Common 

X'02' Equivalence or Interfering* 

X»01» Nonredefinable 



In Phase 1 X»02* indicates 
equivalenced variable. In 
Phase 2 X'02" indicates 
variables which may inter- 
fere with each other. 

TYPE Identifier type may be: 1,2 

Unknown (0,0) 
Integer* 2 (1,2) 
Integer*4(3,2) 
Automatic (0,7) 
Real*4 (3,3) 
Real*8 (7,3) 
Complex* 8 (7,«l) 
Complex*16 (F,4) 
Logical*^ (3,1) 
Logical*l (0,1) 

ULEV Level of the lowest loop in 1,3 

which this is a loop 
variable or parameter. 



SLOC Storage location. Byte 1 

used in Phase 1 for follow- 
ing flags: (Left to Right) 



Initial data 

Must not be dimensioned 

Function name 

Common block name 

Induction Var. in Name list 



Byte 2 used in Phase 1 for: 
External Flag 



STCL Storage Class 



LINKF Link from descriptive pairt 
to the name part. 



NUMENT During Phase 1, is class if 1,2,3 
NAMELIST, the number 
of list elements. During 
Phase 2, the number of 
words of storage required 
for the array. During 
Phase 3, the forward com- 
pute point. 

FDP Forward Definition Point. 1,3 

During Phase 1, contains 
the latest PRF entry in 
which the variable was 
defined. During Phase 3 
contains the current for- 
ward definition point. 

LSTBDP If class is Namelist Label, 1,3 
link to the chain of 
elements of the Namelist. 
During Phase 3, contains 
the backward definition 
point. 



Specific Descriptive Part Formats of 
Intrinsic and Library Functions 



1. LIB (Class 5) and LIBA (Class 11) 

r 



T ' 1 

I Index 



I ID I Class I No. of I Function 
I = I I Args . 1 Type | 
I 1 0-1 1 2-7 I 8-15 116-23 124-31 

|Arg. Type | Extern. | 
I I Flag I 

I LINKF I 

i. — — ^„.^ X ^ 

I 

t . . J 

Index - Used by LIBA for table lookup in 
Phase 1. 
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2. OPEN C Class 5) 

Assemble in 

^_, — ^^ ^ , ^ — ^^. — _. ^_, , ^ 

I ID I Class I No. of I Function | Function I 

1= 0| I Args. I Type | Number | 

I |0-1| 2-7 I 8-15 116-23 | 24-31 | 

^. A.^ + X ^^ X 4 

|Arg. Type | | 

L ^ , ^-X , ^ ^ ^ . J 
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The •OPEN* class functions and their ftinction nmibers are listed in the following 
table. If the function does not have a name, a description is provided. 



I Function No. 

1 
2 
3 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



I Name 

FLOAT 

DFLOAT 

HFIX 

IFIX,INT 

DBLE 

SNGL 

IDINT 

REAL 



Description 






1 

I 



hMOB 

DMOD 

lABS 

DABS 

AINT 

ISIGN 

DSIGN 

IDIM 

AIMAG 

CMPLX 

DCMPLX 

DCONJG 

HMOD 



HSIGN 

HDIM 

DDIM 



Convert 
Convert 
Convert 
Convert 
Convert 
Convert 
Convert 
Convert 
Convert 
Convert 
Convert 
Convert 
Convert 
Convert 
Convert 
Convert 
Convert 
Convert 
Convert 
Convert 
Convert 
Convert 
Convert 
Convert 



L*l to L*4 
L*4 to L*l 
L«2 to 1*4 
1*2 to R*4 
1*2 to R*8 
1*2 to C*8 
1*2 to C*16 
to 1*2 
to C*8 
1*4 to C*16 
R*4 to C*8 
R*4 to C*16 
R*8 to 1*2 
R*8 to C*8 
R*8 to C*16 
C*8 to 1*2 
C*8 to 1*4 
C*8 to R*8 
C*8 to C*16 
C*16 to 1*2 
C*16 to 1*4 
C*16 to R*4 
C*16 to R*8 
C*16 to C*8 



1*4 
1*4 



MOD Function with Arg Type 1*2, 
MOD Function with Arg Type 1*4, 
ABS Function with Arg Type 1*2, 
ABS Function with Arg Type R*4, 
SIGN Function with Arg Type 1*2 
SIGN Function with Arg Type R*4 
DIM Function with Arg Type 1*2, 
DIM Function with Arg Type R*4, 
DIM Function with Arg Type R*8, 
CONJG Function with Arg Type C* 



Fn. Type 1*2 

Fn. Type 1*4 

Fn. Type 1*2 

Fn. Type R*4 

Fn. Type 1*2 

Fn. Type R*4 

Fn. Type 1*2 

Fn. Type R*4 

Fn. Type R*8 

8, Fn. Type C*8 
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A list of special 'OPEN* class functions 
for exponentiation and their function num- 
bers is given below: 



A list of "MAX" class functions and 
their function numbers is given below: 



Function 


Function 


Number 


Name 


- « - — j 


— , , . 


72 


ISQ 


73 


ICUBE 


74 


IFIFTH 


75 


1 I SEVEN 


76 


1 SQ 


77 


CUBE 


78 


1 FIFTH 


79 


1 SEVEN 


80 


RECIP 



1 Function | 


Function | 


1 Number | 

^ ^~^-^+. 

1 60 1 


Name | 
AMAXO 1 


1 61 1 


AMAXl 1 


1 62 1 


MAXO 1 


1 63 1 


MAXl 1 


1 64 1 


DMAXl 1 


1 65 1 


AMINO 1 


1 66 1 


AMINl 1 


1 67 1 


MINO 1 


1 68 1 


MINI 1 


1 69 1 


DMINl 1 


L.. .._«.«.«»«..__ ..JL 





^, i- . . J 



3. OPENA (Class 10). 
Assemble in 



^ ^^^ ^ — ^-^ . . — I , ^«.^ . — , ^ 

I ID I Class I No. of I Function | Index | 

1= 0| I Args. |Type | | 

I |0»2| 2-7 I 8-15 tl6"23 | 24-31 | 

J. J. . ^ ^„x^. ±^ ^^.-^ 

|Arg. Type | | 

L . . .X .. . . — . ^-.J 

Index is used for table lookup in Phase 1. 



A list of "OPENA" class functions and 
their function numbers is given below: 



Function 




Function 


Number 


"+- 


Name 


55 




MOD 


56 




ABS 


57 




SIGN 


58 




DIM 


59 




CONJG 



L. . ^ JL-.^ . J 



Constant Format 

Name Part (at higher-address portion of 
table) 



I Value 

I Value 

k ~ 

I Value 

H — 

I Value 

t—— r 

I LINK I 






™4 



DPP 



Variable Length 
Maximum of 16 
Bytes 






Field 
VALUE 



Description 
Binary value of the constant - 

Value of logical constants 



1 = 
= 



true 
false 



LINK 



Link to next Constant entry in 
chain, otherwise X»80 — ^% 
•END CHAIN' 



DPP 



4. MAX (Class 12). 

Assemble in 
^_».-^ ^ ^ ,- — ^ — . ^ — . , — .^^ 

I ID I Class I MIN Flag | Function | Function] 

1= 0| I 1 Type I Number | 

I |0-2| 2-7 I 8-15 116-23 124-31 | 

|Arg- Type | t 



MIN Flag 

raised if function is from MIN family. 

Function Number 

is either zero or the number of con- 
version function needed. 



Descriptive Part Pointer 



Descriptive Part (at lower-address portion 
of table) 

I I FLAGS I TYPE | t 

I ID I I LEITCTH, I LINKF | 

1= 1| I ATYPE I I 

j 1 0-1 1 2-7 I 8-15 I 16-31 I 

j. JL- J ^ J--, , , ^ ^ -I 

I SLOC I STCL I 



Field Description 

ID Constant = 1 

FLAGS Available if needed 
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T¥PE Type of constant, which may be: FLAGS 
Null COiO) 
Logical*! (0,1) 
Logical*!* (3,1) 
Integer*2 (1,2) 
Integer* 4 (3,2) 
Real*«l (3,3) 
Real*8 (7,3) 

Complex* 8 (7,4) LEVEL 

Complex* 16 (F,4) 



One-bit indicators which 
are: (Left to Right) 

Not Used 

Referenced 

Defined 



Loop level at which the 
label was defined 



1,2 



LINKF 



Link to name part 



ADCON Reference to ADCON entry in 
Symbol Table 



SLOC Storage Location (offset with 
respect to Storage Class base) 



Applicable to labels only 



STCL 



Storage Class 



Label Format 

Name Part (at higher-address portion of 
table) 



SLOC During Phase 1, the storage 1,4 
location is assigned for 
Format Labels. During Phase 
4, the storage location is 
assigned for statement labels 
when first referenced or 
defined 



Label 

T- 






Field 
LABEL 

LINK 



DPP 



LINK 



DPP 



Setting 
Description Phase 

Binary value of the label 



Link to next Label table 
entry in chain, otherwise 
X •80— • , •iWD CHAIN' 

Descriptive part pointer 



1,2 
1,2 



STCL Storage class, set during 1,4 
Phase 1 for Format Labels or 
during Phase 4 for Statement 
Labels when first referenced 
or defined 



LINKF Link to name part 



PLAT PRF entry of the Begin or 

End Loop item preceding the 
statement number 



Descriptive Part (at lower-address portion 
of table) 






I I 

I ID I Class 

1= 2| 

I 0-1 1 2-7 

H—-^- 



t— 



LINKF 



I Level I Not Used | 
I 16-23 I 24-31 I 

Flags f — ^ ^ ^ -I 

I ADCON I 

8-15 I I 
X ^«..^. ^ 

SLOC I STCL I 

— — 4 



PLAT 



Field 
ID 


Description 
Label = 2 


Setting 
Phase 
1,2 


CLASS 


Class of label, which may 
be: 

= Unknown 

1 = Source number 

2 = Format number 

3 = Ccmpiler generated 


1,2 



Address Constant Format 

Name Part (at higher-address portion of 
table) 

J. ^ — ^ ^ ^ ^ ^ 

I Value 1 I Value 2 | 
^.. » ^ ^-. X .^ 

I LINK I DPP I 

L , L- , J 

Field Description 

VALUE 1 If value 2 = 254, pointer to 

symbol table entry for entity to 

be addressed. 

If value 2 = 255, estimated 

location addressed, ELSE location 

addressed. 

VALUE 2 Storage class of location or 
entity addressed. 

LINK Link to next entry in chain, else 
X«80 — •, 'END CHAIN*. 

DPP Descriptive part pointer 
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Descript-ive Part Cat lower-address portion 
of table) 

J. ^- ^ — , ^— ^ . . -^ 

I ID I I FLAGS I LINKF | 

1= 3| I I I 

I SLOC I STCL I 

Field Description 

ID Address Constant = 3 

FLAGS One bit indicators Cas yet 
unassigned) 

LINKF Link to name part 

SLOC Location Con ADCON page) 

STCL Storage class 

4 = shared address constants 

5 = unshared address constants 



INTERCOM TABLE 

The area called "Intercom" C Interp hase 
Com munication) is the most widely used 
interphase file in the compiler. This area 
is 512 storage locations in length and con- 
tains information used by all modules in 



the compiler. The structure and contents 
of Intercom are sho%fn in Figures 40 and 41. 
Figure 40 is a DSECT listing for the area, 
giving the Intercom items in increasing 
storage location order* Figure 41 is a 
listing of all items in Intercom in order 
of increasing alphameric labels. In Figure 
41 the relative displacement of each item 
is given following the item description. 

A 512-byte area for Intercom is reserved 
in the Phase Controller's PSECT and in the 
PSECT for each of the compiler phases. 
Intercom is initialized by the Phase Con- 
troller for each compilation. When the 
Phase Controller calls a phase, the loca- 
tion of Intercom in the Phase Controller's 
PSECT is passed to the phase. Each phase 
copies the 512 bytes into its own PSECT, 
updates the area Cin its own PSECT) as 
required during processing, and copies the 
512-byte area back into the Phase Control- 
ler's PSECT before returning to the Phase 
Controller. 

Many phase modules call Exec modules 
during their processing. All such calls 
provide the Exec module called with the 
location of Intercom in the phase. The 
Exec modules change the |diase*s copy of 
Intercom as necessary, thus insuring that 
changes make their way into the copy of 
Intercom passed to later phases. 
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LOCATN OBJECT CODE 

ceo 

COO 
00ft 
CIO 
01* 



CIC 

oir 

CIO 
OIC 

r2c 
r?4 

018 
0?* 
02« 

02C 
C?Q 
2C 
C30 

d^ 
C2fl 

C3« 
03P 

03C 
C3f 
03C 

C40 

C3P 

CAP 

CAC 
G^C 

GbC 

054 

054 
05*? 

05C 
050 

C5r 

OfO 
064 

C5a 

064 
Cfefl 



ADDRl ADDR2 STMNT SOURCE STATEMENT 



G433*CEKTEX 
C434**** 
0435»TENCDN 
0436*TFWFP 

0437*TE0K10 
0438*TEVID 

C440*«* 



OS 00 kXEC IWTEiCOil 

OS 8C MODULE NAPE 

OS 8C MAIN EMR¥ POINT 

OS 4C tfcCK IDENTIFICATION 

US 8C VERSION lOENTlTlCATION 



C44l*T 

C442«T 

0443* 

C444*T 

C445* 

0446* 

C447*T 

Q448* 

C44<5*T 

0450* 

C451* 

0453* 

0454*T 

0455* 

0456* 

0457«T 

C458» 

C.459*T 

0460* 

0461* 

0462*T 

C463* 

C464«T 

0465* 

0466* 

0467*? 

046B* 

C469*T 

04?0* 

C471* 

0472*T 

0473* 

04 74*T 

0475* 

04 76* 

0477*1 

0478* 

C47<I*T 

C480* 

0481* 

0482*T 

0483* 

C484*T 

0485* 

04*86* 

C487*T 

©4 88* 

0489*T 

0490* 

0491* 



EGNS? 

evG^s 

EVr.NS 

EVROM 

EVHDH 

E¥I2 

PVf4 

rvi4 

EVR4 
«^VR4 

FVRe 
EVRS 

EVC8 
FVC8 

EVC16 
FVC16 

E¥FL4 
EVFL4 

EVFIS 
EVFt«i 



OBJECT PROGRA»f H&t^tS 



ENTRY POINTS 

PHASF CONTROLLER ENTRV 



fcyu 

AOCON 

OS 

EOU 

OS 

OS 

AOCON 

OS 

6 0U 

OS 

OS 

AOCON 

OS 

eou 

OS 
OS 

AOCON 
DS 

Eoy 

OS 
DS 

AOCON 
OS 

Eyy 

OS 
OS 

AOCON 

DS 

ECU 

US 
DS 
AOCON 

OS 

Eyy 

OS 

DS 

AOCON 

OS 

EQU 

OS 

OS 

AOCON 

OS 

EOU 

OS 

OS 

AOCOM 

DS 

EOU 

OS 

OS 



IMPLICIT 

OF 

*-l2 

A<OJ 

A(0) 

IMPLICIT 

OF 

♦-12 

A(yj 

A(OI 

IMPLICIT 

OF 

♦-12 

A(0> 

ACO) 

IMPLICIT 

OF 

*-l2 

AID) 

AfC) 

IMPLICIT 

OF 

*--I2 

AtOt 

AfOI 

IMPLICIT 

OF 

♦ ~12 

ACO» 

AlO} 

IMPLICIT 

OF 

♦~12 

AIO> 

AlOl 

IMPLICIT 

OF 

•-12 

AtOI 

ACOl 

IMPLICIT 

OF 

♦-12 

A(0) 

AlO) 

IMPLICIT 

OF 

♦-12 

A(Of 

A(0} 



GNSS 



C0NI2 



CONI^ 



C0NR4 



C0NR8 



C0NC8 



CaNCl6 



rLA04 



FLA05 



Figure i*0. CEKTD, Compiler Exec Process Terminal Modifications (Part 1 of 4> 
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tnCATN nOJECT CODE ADf)«l AD0R2 ST^NT SOURCE SlATE^ENT 

0492»fEV¥» AQCUN IMPLICIT FLAOVR 

Cftt 0*93* OS OF 

C6C 04S^*T6VV» 6UU *-12 

Ofcf C495* US AlOl 

070 r496* US AlOl 

^^-97*TEV^LL 40CCN iMPtlClT FLL 

C74 C49B* US OF 

Otk^ 0499«TEVFLL EwU »-l2 

C74 OSOO'* OS a«o> 

07P CSOl* OS AlOl 

0502*TFVCRL AOCON iHPLiCIT C«L 

07f CS03* US OF 

tic 0504*TEVrRL ECU ♦-12 

Clf 0505« US AlClJ 

CPC r-506* OS ACO) 

r*i07*Tf: vrL» adcun iMPucr? clp 

rR6 C«^r«* JS of 

07B 0'^OQ*TFVrLR EOU ♦-U 

0P4 U510* US AlUl 

CB8 0511* US AlOl 

051Z**** SOURCE IIMF IMFCtfM&TrO\' 

CaC 05l3*TESLNn OS PL4 SOURCE LINE NO. 

CQO 0514«TESTNC US 6C SOURCE STATENENT MO. 

C9f 05l5*TEFrRr, OS K FORGET FiAG 

097 0516*TPCKP yS X CCNVFRS AT ION/BATCH SWrTCH 

C9P l517«TEVSTB CS F SOURCE STATEMENT TEXT RASE 

C9C ^518*T6EKD OS X EHi) STATEMENT FLAG 

Cqp. C5l9*TFP3nR US C 

G<5E 0520*TEP4CH US C 

09F CS2l*TEPS09 OS C 

G522**** TABLES BA SE S. TOPS , ftNCHOR S 

CAP C523*TEVSYW OS V SYM8CL TdBLF BASE 

OAA 0524-*TENAPT OS H SYMPOL TABLE MAHE PART TOI* 

OAt 0^25*TEOEST OS H SYMBOL TABLF DESC^TOP 

CA« 0526*TEVHTfi OS A VARIABLE HASH TABLE BASE 

OAC C527»TFLHTB DS A LABEL HASH TABLE BASE 

ORG C528*TECNTR OS A CC^STANT HEADER TABLE BASE 

CR'. r529«TESCT9 OS A STORAGE CLASS TABLE BASE 

OR^ C530*TEirTa OS A II-PLICIT TYPE TABLE BASE 

ORC CS31*TEPSER CS A EXEC'S PSECT BASE C FOR 

OCC r532*TESTEA OS H ANCHOR FOP SYHBOL TABLE 

ENTRY CHAIN 

OC? 05}3*TEXPAN OS H ANCHOR FOR SYWBOL TABLE 

XREF CHAIN 

C«i34»*«« FILE A^JO LIST BASES. TQPS 



AND ANCHORS 



0C4 0535*TESPLR 

0C8 0536*TESPLT 

OtC G537*TESPLU 

ceo OSSB^TEPRFB 

004 0539*TEPRFT 

0D6 C540*TEKeYT 

OnP 0541*TEEFB 



OS 


V 


SrORAGE SPECIFICATION LIST 

BASE 


OS 


¥ 


STORAGE SPECIFICATION LIST 
TOP 


OS 


f 


STORAGE SPECIFICATION LIST 
UPPER LIMIT 


OS 


V 


PRF BASE 


OS 


H 


PRF TOP 


us 


H 


VISAM 'PUT* KEY FOR CEKVU MACRO 


OS 


V 


EF BASE 



Figure 40. CEKTD, Compiler Exec Process Terminal Modifications (Part 2 of 4) 
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lOCiiTN nt^JECT CODE AOOR 1 AD0ft2 ST^NT SOURCE STATEMENT 

ooc 

OfeO 
CF* 
CF6 

OFP 

cec 

CFO 
0F4 
CFfl 
OFC 
IOC 
IC^ 

lOd "" ^' 

IOC 

nc 
iiA 
lib 
nc 

120 
124 
12P 
12C 
12E 
130 
13? 
134 
13f 
UP 
13A 



lie 

130 
13F 
13F 
13F 
1^0 
141 
1^2 

143 
144 
145 
14^ 
147 
14P 



14i 



14C 
140 
14C 



C542*TEFFT 


OS 


H 


fcF TOP 


C'543*TEPFP 


OS 


V 


PF PASF 


0544*TEPFT 


OS 


H 


Pf TCP 


0545*TEPFU 


OS 


H 


PF UPPFR LIMIT 


C546*TFtFR 


DS 


V 


CCDF FILE RASE 


0547*TECFT 


uS 


F 


CCOE FILE TOP 


05^8*TECFU 


DS 


V 


CODE FILF UI>PER LI«<IT 


0549*TEPSP 


DS 


V 


PRESET DATA RASE 


055C*TEPST 


OS 


A 


PRESET CATA TOP 


C551*TECRLB 


DS 


V 


CRCSS REFERENCE LIST BASE 


C552*TEC«IT 


DS 


F 


CROSS REFERENCE LIST TOP 


0553*T€FAAB 


DS 


V 


FORWAL ARGUMENT AOCON LIST 

BASE 


C554*TEFAAT 


DS 


F 


FORMAL ARGUMENT AOCON LIST 

TOP 


05»>5*TPPl*CB 


OS 


V 


PND BASE 


05«i6*TFpM0T 


DS 


F 


PKC TOP 


0557»TFCP»<B 


OS 


V 


CPM BASE 


C55e*TECP»*T 


DS 


F 


GPP TOP 


0559*TeRP4S 


DS 


A 


EXTERNAL NAMFLIST BASE 


0560*TPISOU 


DS 


F 


ISC U.L. FOR PHASE 5 


0561*TEISCB 


DS 


V 


ISC BASE 


0562*TEIS0T 


OS 


F 


ISO TOP» 


0563*TEGLIN 


DS 


H 


GLNK ChAIN ANCHOR 


0564«TELLAW 


DS 


H 


LLNK CHAIN ANCHOR 


C565*TFPDA^ 


DS 


H 


POLNK CFAIN ANCHOR 


C566*TECPAN 


DS 


H 


tPQ CHAIN ANCHOR 


0567*TEA0AN 


DS 


H 


AOP CHAIN ANCHOR 


C568*TEDAAN 


OS 


H 


DATA CHAIN ANCHOR 


0569*TEAiFA 


DS 


H 


ALPHANUMERIC CHAIN ANCHOR 


C570*TeSTAN 


OS 


H 


SYMBfL TABLE NAMELIST 
CHAIN ANCHOR 


C571**** 








0572*TEMEC 


OS 


X 


MAX ERROR CODE 


0573»TECPUT 


us 


X 


LIST DATA SET EXISTS FLAG 


0574*TESLC 


us 


X 


SOURCE LISTING OPTION 


0575«Tfc>II^C 


DS 


X 


MEMORY MAP OPTION 


0576*TEMNQ 


EQil 


T£l«i«C 


0577#TECCiO 


US 


X 


OBJECT CrOE LISTING OPTION 


C578*TESTEC 


OS 


X 


SYMPOL TABLE EDIT OPTION 


e579*TECRL0 


us 


X 


CROSS-REFERENCE LISTING 
OPTION 


r'580*TEISOO 


OS 


X 


ISO CPTirN 


C58l*TEI»TYP 


OS 


X 


PK06RAM TYPE 


0582*TeNEP 


DS 


X 


NO. CF ENTRY POINTS 


05a3*TENAR 


OS 


X 


NO. OF ALTERNATE RETURNS 


0584*TeRCD 


OS 


X 


EfcCniC/BCO INDICATOR 


0585»TENFA 


DS 


X 


NEXT FCRMAL-ARG-BY-NAME 

NC. 


05I6«**» 






05"87»TFIFLP 


OS 


H 


SYMBOL TABLE POINTER TO" 
INTRINSIC FUNCTION LIST 


058«»TEFEU 


AOCON 


IMPLICIT 


05B9^ 


OS 


OF 


C590«TEFFU 


EQU 


•-12 


0S91» 


OS 


AtOI 



FLAGS AND OPTIONS 



MISCELLANEOUS 



Figure 40. CEKTD, Compiler Exec Process Terminal Modifications (Part 3 of «*) 
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LOCATN OBJECT CODE mi)Hl AD0R2 ST^NT SOURCE SfAIkHtNT 

150 

156 
158 



G592* 


OS 


A(OI 


0593*TeTRUE 


OS 


H SYMBOL TABiF POINTER TO 
.TRUE. 


C594«TPFALS 


DS 


H SYFROL TABLE POINTER TO 
.FALSE, 


D5^5*TERSAV 


OS 


i6F REGISTFRS SAVE AREA 

WHEN SUSPECTED SYSER^ 


0596*TEPAG6 


DS 


F CURRENT fUTPUT PAGE NO. 


0597*TE0ATe 


DS 


CL8 DATE — MM/OO/YY 


0598*TECFLC 


OS 


F O'FLOW FLAGCEXEC ONLY^ 


059<9*TENCSM 


DS 


F NO.CF CCWMON SUB-EXP.N A*4ES 



19€ 
1A4 
IA8 

0600** 

lAt " *^ 060l*TEFVAL OS H POINTER TO FUNCTION VALUE 

lAE C602*TEP!DH OS C 

lAF C603*TFP2CB uS C 

060^**** CONSTANT PILING AR£A 

180 C605+TECCNS OS 00 

IRO C606*TECNS1 DS F LENGTH 4 CONSTANTS 

IB^ C.637»TECNS2 OS F LENGTH P AND 16 

IBP Ofe08*TECNS3 OS F LENGTH 16 

IPC C»609*TECNS4 OS F LEMGTH 16 

ICC 06lO*TEPNTft OS F SYWBCL TABLE POINTER 

IC-^ 06U*TEGNU OS X CONSTANT AL«EADY FILEO PL G 

ICP 0612«TELIN0 DS t BINARY LINE NO. FRO»« CRL 

ICC 0613*TEWAAH uS A ACER OF PRF 1ST WORD 

100 C614*TF0ESB DS A ACCR OF DESC.PART 1ST WORO 

104 G615«TENA>»B OS A ACCR CF NAPE PART 1ST WORD 

108 061<H*TE0CB OS F CATA SET DCP 

IDC 0617*TECXBA OS F 

lEO C618*TEICIN DS H CHCIAi 

IE? 061<3*TEiCTR DS H CHCIEl 

1F4 0620*TtICEN OS M ChCIHI 

1F6 0621*TEINTR OS H INTERRUPT ROUTINE PNTR 

06?2*TEVGAT AOCON IMPLICIT 

les 0623* DS OF 

IOC 0624-*TEV6AT EQU *-i.^ 

1F8 062'>* OS ACOl 

ItC C626* OS A(GI 

IFO 0627*TESCB DC A t T EGNS2-TEVGNS I 

IF^ 062B*TEI0S^ OS C 

1F5 0629*TEPUPR OS C 

iF6 C630*TE0Uf*P OS H 

IFP 063l*TEPnPP OS H 

Figure 40. CEKTD, Compiler Exec Process Terminal Modifications (Part 4 of 4) 
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CEKTEX 

TEAOAN 

TEALFA 

lEBCO 

fECFB 

TECFT 

TECEU D 

TECHTB 

TECNSl 

TECNS2 

TECNS3 

fECNS4 

TECONS 

TECPAN 

TECRLB 

TECRLO 

TECRLT 

TECXB 

fECXBA 

TECAAN 

TEOATE 

TECC6 

TECESB 

TEDEST 

TEOIAG 

TECKIO 

TECUMP 

TEEFB 

TEEFT 

TEEND 

TEFAAB 

TEFAAT 

TEFAtS 

TEFEU 

TEFORG 

TEFVAL 

fEGLAN 

TEGNS2 

TFGNU 

TEIFLP 

TEINTR 

TEIOEN 

TEIOIN 

TEIOSM 

TEIOTR 

TEISDB 

TEISOO 

TEISDT 

TEISOU 

TEIITB 

TEITTB 

TEKEYT 

TELHTfl 

TELINO 

TELLAN 

TEMEC D 

TEMfeP 

TENWO 

TEMNO E 

TErtODW 



CS 00 EXEC INTERCOM BASE 
OS H AOP CHAIN ANCHOR 
OS H ALPHANUMERIC CHAIN ANCHOR 
S X EBCOIC/BCD INDICATOR 
S V CODE FILE BASE 
S F CODE FILE TOP 
S V CODE FILE UPPER LIMIT 
OS A CONSTANT HEADER TABLE BASE 
OS F LENGTH 4 CONSTANTS 
OS F LENGTH 8 AND 16 
CS F LENGTH 16 
OS F LENGTH 16 
CD 

CPO CHAIN ANCHOR 
CROSS REFERENCE LIST BASE 
CROSS-REFERENCE LISTING OPTION 
CHCSS REFERENCE LIST TOP 
CONVERSATION/BATCH SWITCH 

F AUOR IN LPC OF «AT CH/CONV . IND 

DATA CHAIN ANCHOR 
B DATE — MM/OO/VY 

F DCB ADOR FROM LPC 

AODR OF DESC.PART 1ST iiORO 



CS CD 
OS H 



OS V 
DS X 

DS F 
S X 

DS 
CS H 
OS CL 

DS 
OS A 
OS H 

OS 
OS 4C 

OS 
S V 
S H 
S X 
CS V 
OS F 
CS H 

OS 
OS X 
DS H 
CS H 

EOU 
S X 
OS H 

OS 
OS H 
OS H 

OS 
CS H 



CS 
DS 
DS 
DS 



V 

X 
F 
F 

EOU 
DS A 
OS 
OS A 
OS F 
CS H 
S X 
S 8C 
S X 
OU TF 
OS 8C 



SYMBOL TABLE OESC^TCP 



IF V» ALLbli MA INT CUTPUT 



MHO 



DECK IDENTIFICATION 
XL2 

EF BASE 

EF TCP 

END STATEMENT FLAG 

FORI^AL ARGUMENT ADCOK LIST BASE X 

FORMAL ARGUMENT ADCOK LIST TCP X 

SYMBCL TABLE POINTER TO •FALSE. X 

2A CEKTG P«ACRO USES 

FORGET FLAG 

POINTER TO FUNCTION VALUE 

GLNK CHAIN ANCHOR 
* 
CONSTANT ALREADY FILED ^LG 

SYMBOL TABLE POINTER TO INTRINSIC FUNCTICfv LIST % 
H INTERRUPT l»ROG PNTR 

CHCIHI 

CHCIAl 
C 

CHCIEl 

ISO BASE 

ISO CPTION 

ISO TOP 

ISO U.L. FOR PHASE 5 
TEITTB 

IMPLICIT TYPE TABLE BASE 
H VI SAM 'PUT* KEY t=OR CEKVU MACRO 

LABEL HASH TABLE BASE 

BINARY LINE NO. FRCM CRL 

LLNK CHAIN ANCHOR 
MAX ERRCR CODE 

MAIM ENTRY POINT 
MEMORY MAP OPTION 



MODULE NAME 



oon 

138 
147 

OER 
OEC 
OFO 
OBO 
IBC 
lf^4 
IBB 
IBC 
I BO 
132 
OFC 
142 
ICO 
0Q7 
IDC 
136 
19C 

inp 

IDC 
0A6 

IC5 
OIC 
IF6 
OOP 
O^C 
Qcr 
1D4 
106 
ISh 
140 
069 
lAC 
12C 
OIC 
IC^ 
l&A 
IE6 
IE4 
IFO 
lE^ 
IE2 
124 
143 
128 
120 
0R8 

006 
OAC 
IC8 
12F 
13C 
008 
13F 
13F 

ooc 



Figure 41. Alphabetically Sorted Listing of Ifitercom Items, With Displacements 
(Part 1 of 2) 
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TENAMe 


OS A 


AOOR OF NAME PART 1ST MORO 






104 


TEfyWllL-M H 


SYWBOL TAtiE HAWE PART TOP 






OAA 


TENAR OS X 


NO. OF ALTERNATE RETURN!* 






146 


TENCSI 


OS F 


NO. OF CDMHON SUB-EXP. NAMES 






lAB 


TENEP OS X 


NO. CF ENTRY POINTS 






145 


riNFA OS X 


NEXT FORMAi-ARG-BY-NAPE NO. 




X 


148 


TEOCLO 


OS X 


OBJECT CODE LISTING OPTION 






140 


lEOELO 


OS F 


O'FLCIt FLAGIEXEC ONLY! 






1A4 


TEOPMS 


OS ¥ 


OPN BASE 






114 


TEOPMT 


OS F 


0P« TOP 






im 


TEOPUT 


OS X 


LIST DATA SET EXISTS FLAG 






130 


TEPAGE 


OS F 


CURRENT OUTPUT PAGE NO. 






198 


TEPDAN 


OS H 


POLKK CHAIN ANCHOR 






130 


TEPDMP 


OS 


XL2 






1F8 


TEPFi OS ¥ 


PF BASE 






OEO 


TEPFI OS H 


PF TOP 






0E4 


TEPFU OS H 


PF UPPER LIMIT 






OEA 


TEi»«OB 


OS ¥ 


PMO BASE 






IOC 


TEPWOT 


CS F 


PNO TCP 






llO 


TEPNTR 


DS F 


SYMBOL TABLE POINTER 






ICO 


TEPRFB 


OS ¥ 


PRF BASE 






000 


TEPRFT 


OS H 


PRF TOP 






004 


TEPSB OS ¥ 


PRESET DATA BASE 






0F4 


TEPSEB 


OS A 


EXEC»S PSECT BASE 






OBC 


TEPST OS A 


PRESET DATA TOP 






0F8 


TEPT¥P 


OS X 


PROGRAM TYPE 






144 


TEPyPR 


OS 


C 






1F5 


TEPIOB 


OS C 


PHASE l-" 5 01 AGNOSTIC BYTES 




lAE 


TEP20B 


CS C 








lAF 


TEP3DB 


CS C 








090 


TEP40B 


OS C 








09E 


TEP50B 


CS c 








09F 


TERBAS 


DS A 


EXTERNAL NAMELIST BASE 






lie 


TERSA¥ 


OS 16F 


REGISTERS SA¥E AREA WHEN 


SUSPECTED SYSERR 


X 


158 


TESCTB 


OS A 


STORAGE CLASS TABLE BASE 






0B4 


TESLNO 


OS PL4 


SCURCE LINE NO. 






090 


TESLO OS X 


SOURCE LISTING OPTION 






13E 


TESOB 


oc 


AtTEGNS2-TE¥GNSI 






IFO 


TESPL8 


DS ¥ 


STORAGE SPECIFICATIOK LIST 


BASE 


X 


0C4 


TESPLT 


OS ¥ 


STORAGE SPECIFICATION LIST 


TOP 


X 


0C8 


TESPLU 


OS F 


STORAGE SPECIFICATICK LIST 


UPPER LIMIT 


X 


OCC 


TESTAN 


OS H 


SYMBOL TABLE NAMELIST CHAl^ 


I ANCHOR 


X 


13A 


TESTEA 


CS H 


ANCHOR FOR SYMBOL TABLE ENTRY CHAIN 


X 


OCO 


TESTEO 


OS X 


SYMBOL TABLE EDIT OPTION 






141 


TESTNO 


OS 6C 


SOURCE STATEMENT NO. 






090 


TETRUE 


OS H 


SYMBOL TABLE POINTER TO .TRUE. 


X 


154 


TEVCRi 


CEKTX 


EXEC MCOULES ACCON PAIRS 




070 


TE¥C16 


CEXfX 








048 


TE¥C8 


CEKfX 








040 


TEVfLL 


CEKTX 








068 


TE¥Fi4 


CEXTX 








050 


TE¥FL5 


CEKfX 








058 


fEVGAT 


CFKTX 








IOC 


TE¥GNS 


CEKTX 








010 


ffcVHTft 


OS A 


¥ARIABLE HASH TABLE BASE 






0A8 


TE¥IO OS 8C 


¥£RSION lOENTITICATICN 






014 


TE¥I2 


CEKTX 








020 


TEVI^ 


CEXTX 








028 


TEVOLR 


CEKTX 








078 


TE¥ROM 


CEKTX 








018 


TE¥R4 


CEKfX 








030 


TEVR8 


CEKTX 








038 


FEVSTB 


OS F 


SOURCE STATEMENT TEXT BASE 






098 


TE¥SyP| 


OS ¥ 


SYMBOL TABLE BASE 






OAO 


TE¥¥R 


CEKTX 








060 


TEHAAH 


OS A 


AOOR OF PRF 1ST KORO 






ICC 


TEXRAK 


OS H 


ANCHOR FOR SYMBOL TABLE XREF CHAIN 


X 


0C2 



Figure 41. Alphabetically Sorted Listing of Intercom Items, With Displacements 

CPart 2 of 2) 
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IIPPENDIX B: TSS/36Q UNKft^GE CONVENTIONS 



INTRQDUCnON 

Linkage conventions are those conven- 
tions which govern communication among pro- 
grams. Basically, there are two types of 
communication: that defined as standard 
linkage, and that defined as restricted 
linkage. 



Restricted 
cient ccMnmuni 
satisfy a def 
Such linkage 
•black box" ( 
requirements 
or no inter fa 
Cor user) , wh 
vehicle for a 



linkage provides highly effi- 
cation among programs which 
initive set of requirements, 
is intended for use within a 
precisely defined by the 
given below) which has little 
ce with the rest of the system 
ile standard linkage is the 
11 other communication. 



In TSS/360 all interfaces among CSECTs 
which reside in virtual memory (execute 
with dynamic relocation turned on) , whether 
or not the CSECTs are in the same assembly, 
conform to either standard or restricted 
linkage. Furthermore, all linkage within a 
CSECT conforms to one of these conventions. 
No other mechanism for communication is 
recognized. It is emphasized, however, 
that the restricted linkage never has to be 
used. A standard linkage is al%fays accept- 
able and it is expected that the majority 
of program linkage will follow the 
standards . 

The following paragraphs describe the 
linkage conventions to which all compiler 
modules must (and do) adhere. Reference is 
made in this description, and elsewhere in 
this PLM, to "Type I linkages." Type I 
linkage is one of several types defined for 
use in compiler and other system modules. 
For a complete description of all linkage 
types see the Systems Programmer's Guide . 

For a precise description of the macros 
used for standard linkages (the CALL, SAVE, 
and RETURN macros) see A ssembler Users 
Mac ro Ins tructions . Macro support for 
restricted linkages (INVOKE, STORE, and 
RESUME) is described later in this 
appendix. 



CONVENTIONS FOR TYPE I LINKAGES (STANDARD) 



Register Conventions 



General 
Register 
15,0 



13 

m 

15 



Parameter List Re- 
gister, Supervisor 
Parameter Register, 
or Parameter List 
Register 

Save Area Register 

Return Register 

Entry Point Register, 

Return Code Register 



PL 



SA 
R 

E 



Usage 
Supervisor Parameter 
Register 



Mnemonic 
SP 



It is the responsibility of the called 
program to naintain the integrity of gener- 
al registers 2-12 so that their contents 
are the same at exit as they were at entry 
to the called program. It is the calling 
program's responsibility to maintain the 
floating-point registers around a call. 
General registers 0, 1, and 13-15 must con- 
form to the indicated conventions. 

Save Area 

Whenever one program calls another, the 
calling program provides a save area for 
use by the called program; the calling pro- 
gram is known as the owner of the save 
area. This save area is addressed by the 
save area register (SA) on entry to a 
called program and is described in detail 
in Assembler Users Macro Instructions ; in 
general the format is: 

Word 1 - Contains the length in bytes 
of the save area and any 
appendages to it. This field 
is set by the calling program 
in its own save area, and 
always contains the integer 76 
(in TSS/360). 

Word 2 - Contains a pointer to the save 
area of the calling program. 
This field is set by the 
called program in its own save 
area. This procedure allo%fs 
all save area of active pro- 
grams to be linked in a 
reverse chain. 

Word 3 - Contains a pointer to the save 
area of a called program after 
its invocation. This field is 
set by the called program in 
the calling program's save 
area. This allows all save 
areas of active programs to be 
linked in a forward chain. 
When the called program is 
complete, if trace for%#ard has 
been specified, it sets the 
low order bit of this field to 
1 to stop the forward chain. 
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iford 4 - Contains the return linkage 

for use by the called program 
when it is complete. This 

field is set by the called 
program in the calling pro- 
gram's save area. 

ilord 5 - Contains the entry point 

address to the called program. 
This field is set by the 
called program in the calling 

program* s save area« 

^ords 6-18 - Register save area. These 

fields are set by the called 
program in the calling pro- 
gram's save area as necessauty 
to preserve registers 
through 12. 

Word 19 - Contains the address of the 

PSECT belonging to the called 
program. This field is set by 
the calling program in its own 

save area. 

It is clear that a program may use its 
own PSECr for a save area provided that the 
head of the PSECT is formatted as indicated 

above. However, if PSECTs are used for 
save areas, a called program will not use 

its own PSECT to save registers, but rather 
will use the save area (PSECT) of the call- 
ing program. 

Parameter List, Type I Linkage 

Whenever it is necessary for one program 
to explicitly communicate information to 
another program using Type I linkage, it 

must do so by using a parameter list. A 
parameter list is an ordered list of 
addresses of information. At the time of 

the CALL, the calling prograiri places the 
address of the parameter list in the param- 
eter list register (PL). (This list is 

most probably a list of address constants 
residing in the PSECT. ) See the CALL macro 

expansion. 

It should be noted that an active param- 
eter of the CALL (a parameter which is set 
by the called program) is also passed in 
this manner. 

Type I Linkage, Return and Entry Linkage 
and Return Code 

It is the calling program's responsibil- 
ity to establish the return and entry link- 
age at the time of a call. This will norm- 
ally be accomplished by placing a ¥-type 
Adcon in the entry point register using a 
load instruction and then executing a 
branch and store instruction which will 
establish the return location in the return 
register and pass control to the indicated 
program. 



I 



RESTRICTED LINKAGE CONVENTIONS 



Scope and Applicability of Restricted 
Linkage 

A restricted linkage may only occur 
between two programs if all the following 
conditions are met. 



1. The two programs involved must have 
the same PSECT in common and it must 
be contiguous; this area must be 
covered at all times by the PSECT 
cover register. 

2. The invocation may not use or require 
explicit dynamic linkage. 

3. The invoked program may not be enter- 
able at the same point by way of a 
standard linkage. 

4. The invoked program may not establish 
a non- volatile register as a common 
register (see below) . 

5. The programs involved must reside in 
virtual (as opposed to real) storage. 

6. The invoking and the invoked programs 
must both be privileged or 

non- pr ivil eged . 



Register Osage and Assignment in Restricted 
Linkage 

There are four classes of restricted 
linkage registers: parameter, volatile, 
non-volatile (including common) , and link- 
age. These classes are now described 
indi vidua lly . 



1- Parameter Registers and Parameter List 
Registers 

These registers are used explicitly to 
pass information in a restricted link- 
^9® fc>Qt^h from the invoking to the 
invoked program and from the invoked 
to the invoking program. A parameter, 
in this context, may be by name or 
value- These registers may also be 
used to address parameter lists. 
Clearly, the content of these regis- 
ters mtist be kno%in by implicit agree- 
ment among the programs involved. 

Parameter registers are of the pseudo- 
volatile class where it is generally 
the responsibility of the invoking 

program to insure their integrity as 

necessary. 
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2. yolatile Registers 

These registers may always be changed 
at will by the invoked program. The 
invoking program may never assiime that 
they contain any specific values after 
an invocation is complete - 

3. Non-Volatile (and Common) Registers 

These registers are generally trans- 
parent around an invocation j that is, 
a non-volatile register must be STOREd 
and RESUMEd in the invoKed program as 
necessary to preserve their contents 
Cor the equivalent of STORE, RESUME). 
It is possible, however, that some, or 
all of the non-volatile registers may 
be established as common registers. A 
common register is a pseudo- parameter 
which is known to invoked programs and 
may change from invocation to invoca- 
tion; thus a common register need not 
maintain constant value fcwt must 
retain constant function. When a non- 
volatile register is established as a 
common register, all programs invoc- 
able by the establishing program 
(directly or indirectly) must be 
implicitly aware of this assignment. 

In this context "Establish* means to 
set aside or dedicate a register for a 
particular use; this does not mean 
that the register must be initialized 
or modified. Common register usage 
must conform to tne following rules: 

a. A common register may not be 
established by a program invoked 
with a restricted linkage; thus, a 
common register may be established 
only by a program CALLed with a 
standard linkage- 

b. Common registers may not be STOREd 
and RESDMEd by a program invoked 
with a restricted linkage unless 
that program contains no linkage 
to other programs. 

c. The scope of common registers 
shall extend only to those pro- 
grams invoked while the establish- 
ing program is active; further- 
more, no comnon register defini- 
tion is known to any program 
CALLed with a standard linkage 
from a program invoked with a 
restricted linkage. 

4. Linkage Registers 

The linkage registers are those regis- 
ters which must contain specific 
information during an invocation. 
There are three such registers wbich 
are now described individually. 



PSECT cover register. This 
register must cover the common 
PSECT at all times (point to the 
origin of the PSECT) . 



Return register. This register is 
initialized by the invoking pro- 
gram to the proper return location 
in the invoking program- This 
register must be used by the 
invoked program upon completion to 
return control (to the indicated 
return location) . 



c. The entry point and return code 
register. This register must be 
initialized by the invoking pro- 
gram to the entry point address in 
the invoked program before the 
linkage takes place; it may also 
be used by the invoked program to 
pass a "return code" (see standard 
linkage) to the invoking program. 

The entry and return registers are vola- 
tile in the sense that the act of invoca- 
tion will cause their values to change. 

The following register assignments have 
been made for the above classes: 

Function Assignment 

Parameter (list) registers 0-5 

Volatile registers 6-7 

Non- Volatile registers 8-12 

Common registers 8 

sequentially from 

PSECT cover register 13 

Return and entry registers 14-15 

The floating-point register conventions, 
PICA, and program mask requirements are as 
described for standard linkage. No special 
save area format or location is committed; 
this function is left to the user. 



MACRO INSTRUCTION SUPPORT 

The following macro instructions are 
defined as support for restricted linkage. 
These macro instructions are used exclu- 
sively when effecting a restricted linkage - 



INVOKE Macro Instruction 

The INVOKE macro instruction transfers 
control from one program to another with a 
restricted linkage. It is not possible to 
specify parameters of a linkage in the 
INVOKE macro as in the CALL macro. This 
function is left to the user to accomplish 
however he sees fit. 
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General Form 

[symbol] INVOKE aadr 

symbol - Any prog rammer- defined label. 

addr - Specifies the address of a 

full-word which contains the 
address of the program to be 
invoked. 

Expansion 

The expansion of this macro instruction 
causes linkage register 15 to be loaded 
with the address at addr, linkage register 
14 to be set to the return location in the 
invoking program, and control to be passed 
to that location specified in linkage 
register 15. 

Examples: 

!• INVOKE A 
in line 
L 15, A 
BASE 14,15 

2. INVOKE B(3) 
in line 
L 15,8(3) 
BASE 14,15 

STOR E Macrolnstruction 

The STORE macro instruction causes the 

indicated non-volatile registers to be 
stored in the specified area. 

General Form 

t symbol! STORE addr, Creg^-integer 
Creg^ - integer!) 

symbol - Any programmer-defined 
label, 

addr ~ Specifies the address of 
an area sufficient to 
contain the indicated 

registers, 

^^9ii^^92 *" Integers specifying a 

range of registers to be 
stored at addr. If reg^ 
is not specified, only 

^^9± will be stored. 

Expansion 

A STM Cor ST, in the event that reg^ is 
not specified) instruction is generated to 
store the indicated register Cs) at addr. 

Notes ; 

1. It is possible to specify reg^ as 14 
or 15 thus causing the linkage regis- 
ters to be stored. 



Regi must be greater than or equal to 



If reg^ is 14 or 15, a single STM will 
be generated spanning register 13. 
Thus, the area at addr must be of such 
size as to contain this register, and 
it is stored redundantly. 



Examples: 
1 



STORE A, C9,10) 
in line 

STM 9, 10, A 

STORE B, (11) 
in line 
ST 11, B 



RESUME Macro Instruction 

This macro instruction causes the indi- 
cated non-volatile registers to be restored 
from the specified area and control to be 

passed via the return register. 

General Form 

[symbol] RESUME [addr, Cregj.- integer 
[, rega-integerl) ] 
C , RC=integer! 



symbol 



addr 



regj., reg^ 



RC 



- Any programmer- defined 
label. 

- Specifies the address of 
an area from which the 
indicated registers are 
to be restored. 

Integers specifying the 
range of registers to be 
restored. If rega is not 
specified, only reg^ will 
be restored. 

Specifies an integer to 
be used as a return code 
C0<RC<4092). RC must be 
a multiple of 4. 



Expansion 



A LM Cor L, if regs is not specified) 
instruction is generated to load the indi- 
cated register (s) from addr, the return 
code register is loaded as necessary with 
the specified integer (using a LA instruc- 
tion) , and a BR 14 instruction is generated 
to return control to the invoking program. 

Notes : 

1. If the addr and register fields are 

not specified, only the BR 14 instruc- 
tion is generated. 
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2- It is possible, to specify reg^ as 14 
or 15 causing the linkage registers to 
be loaded. 

3, Reg^L must be greater than or equal to 
8. 

4. If reg^ is 14 or 15, a LM instruction 
is generated spanning register 13 
(thus loading it redundantly) . The 
user must use a certain amount of cau- 
tion when allowing this to happen in 
order that the contents of register 13 
are not destroyed. 



Examples: 

1. RESOME h, (9) 
in line 

h 9, A 
BR 14 

2. RESOME RC=4 
in line 

LA 15,4 
BR 14 

3. RESOME 
in line 
BR 14 
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APPENDIX C: 



FORTRAN INTERNAL MACRO INSTRUCTION USAGE 



The table below contains a brief description of the user macro instruictions required 
for assembly of compiler modules. These macro instructions are contained on the second 
macro library provided the TSS/360 Assembler when assembling compiler modules. The first 
macro library provided is that containing the system macro instructions, described in the 
Assembler User Macro Instructions. 



T 

Name | Description 
- i. — 


EXECUTI\/E Macro Instructions 

„. ^ — ^. . 





CEKTD 



CEKT7 



CEKT8 
CEKT9 



CEKTS 



CEKTT 
CEKTX 

CEKTY 



CEKUl 



CEKU3 



CEKUII 
CEKU5 



CEK06 



CEKU7 



:eku8 



Performs all operations concerned 

with calling a phase, including 
checking the return code, giving 
diagnostic option dumps if 

requested, and logging the phases 
on and off. 

Moves an option from the F-option 
table passed from LPC to FORTRAN 
at the 'Initial' call to the 
Executive PSECT. If LPC passes 
neither an 'N' nor a *¥• , the 
default value assembled into the 
phase controller module is used. 

Executive intercom macro- 
Identical to CEKTS, Dut contains 
DS rather than DC. Used by other 
Executive programs, and the 5 
phases. 

Diagnostic option macro instruc- 
tion. Sets up calling list for 
module CEKTS, and calls that 
module. 

Null. 

Forms V-R con pairs, with the aid 
of the ADCON macro instruction. 

Checks batch/conversation switch 
in the Executive, and LPC if in 
conversion. Resets switch as 
appropriate - 

Converts a binary number to zoned 
format, edits it under control of 
a mask, and moves the result to a 
user specified area. 

Used to determine, from the limits 
of a main storage file, the base 
and two- or four-byte offsets 
from the base to the limits - 

Null. 

Branches to one of five places, 
depending upon the return code in 
register 15. 

Establishes intercom cover in 
register N4 and cover for the 
Executives PSECT page 1 in gener- 
al register N3. 

Macro instruction for the Phase 
Controller PSECT. Used to gener- 
ate a DSECT in other Exec 
modules. 

Used where the test must be made 
of a list data set exists, and, 
if SO', OLR is called. 



r — ^ T- 

Name [ 

i- 



Description 



EXECUTIVE Macro Instructions (Continued) 



CEKU9 lUsed to edit the line number of a 
line for which a diagnostic mes- 
sage is to be given, move the 
number to a message area, call 
DIAGOUT to output the message, 
test the return code, and branch 
accordingly. 

CEKUX I Sets up FREEMAIN calls Cusing 

CEKV9) for those parts of Phase 5 
files not containing the output 
module. 

CEKVl I Moves addresses and lengths of 
Phase 5 created tables to LPC 
prior to the 'Continue' call 
return. 

CEKV2 [Determines, for GNSS, if an END 
statement has been encountered. 

CEKV3 [Performs all operations concerned 
with checking to see if the diag- 
nostic mode is allowed, checking 
for the existence of the diag- 
nostic line, and, if it is pre- 
sent, processing the two diag- 
nostic request lines. Also sets 
up the interruption entries. 

CEKV5 I Used in producing diagnostic out- 
put. Checks the 10-column fields 
provided for each phase on diag- 
nostic card 1 and gives dumps 
accordingly. 

CEKV6 I Used in producing diagnostic out- 
put. Loads a register with a 
two- or three-character code, 
then invokes a sequence of 
instructions that will dump this 
code plus contents of all general 
registers, if so requested on 
diagnostic card 1. 

CEKV7 I Used to establish a CSECT (for the 
initial entry to a module), USING 
statement, PSECT cover, and code 
cover in register N5. 

CEKV^S I Similar to CEKV7, but establishes 
the PSECT and ENTRY statements, 
plus the 19-word save area. 

CEKV9 fused for all FREEMAIN operations. 
In addition to the actual FREE- 
MAIN, records are kept in the 
PSECT of main storage areas 
freed, and their size. 
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Name 



Description 



EXECUTIVE Macro Instructions 



-H 



CEKVA 



CEKVB 



CEKVC 



H 



CEKVD 



CEKVI 



CEKVU 



CEKZD 



Obtains the version of this compi- 
lation and moves it to appropri- 
ate edit areas. 

[Jsed in preparing diagnostic 
information. Reached by an 
INVOKE in macro instruction 
CEKV6, ^ ^' 

[Jsed for all GETMAIN operations. 
Obtains parameters from the PSECT 
giving the number of pages to 
obtain ^ obtains them, and keeps 
records in the Phase Controller 
PSECT of pages obtained and their 
location. 

Produces a complete virtual 
storage dump. Used in diagnostic 
mode processing. 

Contains code related to control 
of unexpected interruptions dur- 
ing the compilation process. 
Entered only in diagnostic mode. 

The data management operations 
OPEN, SETL, POT, and CLOSE are 
all embedded in the macro 
instruction CEKVU. 

Establishes PSECT cover, and back- 
ward and forward PSECT chains. 

^, ^-„ ^ 



Phase 1 Macro Instructions 

^ 



-i 



CEKHB 

CEKHC 

CEKHD 
CSKHF 
CEKHG 

CEKHH 

CEKHI 
CEKHJ 
CEKHL 
CEKHM 
CEKHN 



I-" 



Phase 

CEKJM 

CEKJO 
CEKJl 

CEKJ2 



Saves a one- or two- byte Symbol 

Table field. 
DSECT describing the Symbol Table 

fields for a variable entry. 
Phase 1 PSECT. 

Updates the Cross-Refer ence List. 
Creates a two-oyte, signed Adcon 

for the error routine. 
Sets up INVOKE, tests the return 

code, branches conditional, and 

sets up RESUME. 
Defines field used in internal 

tables and flags with EQU cards. 
Several DSECTs defining some 

internal tables. 
Makes an RDM entry for the error 

routine. 
Saves a one- byte field of the Sym- 
bol Table. 
Uses CEKHG to create parameter 

lists for the error routine. 
J ^ ^ 1 

2 Macro Instructions 



Defines the fields of internal 

tables by EQU cards. 
Phase 2 PSECT. 
Checks for a barrier between the 

plateau values of a reference and 

a definition of a statement 

label. 
Marks the materialization list. 



Name 
Phase 



Description 



2 Macro Instructions (Continued) 



CEKJ3 



CEKJil 
CEKJ5 

CEKJ6 



CEKJ7 
CEKJ8 
CEKJ9 



H 



Checks the inner loop table for a 

reference or a definition of a 

specified statement label. 
Marks the return list. 
Relinks a specified chain in the 

opposite direction. 
Tests for a D-Loop or an E-Loop 

table entry between ILINK and 

PDLINK. 
Defines the fields of internal 

tables by EQU cards. 
Creates the parameter list for the 

error routine, DX. 
Generates an invoke to the error 

routine, DX. 



Phase 3 Macro Instructions 



CEKKS 
CEKKK 

CEKZB 

LDPNT 

STPNT 

EKKSB 
EKKSC 

CEKKD 



Phase 3 PSECT. 

DSECTs describing the internal 

tables. 
Sets the DSECT or PSECT control 

and specifies print options. 
Converts a pointer to an address 

and loads it into a register. 
Converts an address into a pointer 

and saves the result, 
dissembles an address as a pointer. 
Sets an origin to a specified 

boundary . 
diagnostic mode, provides dumps 

during Phase 3 processing. 



Phase 4 Macro Instructions 



CEKNY 
CEKN2 



CEKN3 



CEKN4 



CEKN5 



Phase 4 PSECT. 

Tests the return code, and 
branches conditionally to the 
error routine (PH4MER) . 

Generates the calling sequence to 
find a constant and its asso- 
ciated Adcon in the Symbol Table. 

Generates the calling sequences to 
obtain the location of an operand 
in the expression tree, make the 
appropriate entries in the 
internal tables, and insert the 
associated instructions into the 
Code File. 

Inserts previously specified 
sequence of instructions (canned 
code) into the Code File. 



Phase 5 Macro Instructions 



CEKSy I Phase 5 PSECT. 

CEKSZ I EQU cards for the standard regist- 

I er symbolic names. 
CEKS2 I Picks up a specified number of 

I characters from a table. 
CEKS3 I Decrements the print control line 

I count . 
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Phase 1 IX S.. 


; 0^^ R 


.'ferencec 


J Onl^ , 


















Name 


§ J; 1 

al a: ii- 




c 

o lo 

u ►5 


1 — ■ "■■■■' 

III 

uj tr ix. 


.9 

1 


u 

I o 


<l 


imp I'c't Typf 
To I -e 

H:TC^ 

Or .-DP Stc:i 


CtKAB (FSC) 


















1 


CcKAC (SID) 






















CEKAD (PHIM) 


X 


X 


















CEKAE (ACOMP) 




X 










X 









CEKAF (ARDIM) 




X 






X 












CEKAC (SUBS) 




X 




X 


o 










i 


CEKAH (IDATA) 




X 


















CEKAt (EXPR) 


X 


X 


X 


X 










X 


X 


CEKAJ (LABL) 


X 




X 














' o 


CEKAK (EQUA) 


X 




















CEKAL (END) 


X 




















CEKAM (EXTE) 


X 




















CEKAN (CNVRT) 




o 




X 










X 


X 


CEKAQ (GOTO) 


X 


X 


X 


X 














CEKAR (IF) 


X 




X 
















CEKAS (TYPE) 




X 






X 














CEKAT (CONT) 


X 






















CEKAU (DIMN) 










X 














CEKAV (COMM) 




X 








X 












CEKAW (DCL2) 
























CEKAX (EXEC2) 


X 






















CEKAY (EQUI) 




X 




















CEKAZ (DO) 






X 


















CEKBA (BGNLP) 


X 


X 


















X 


CEKBB (ENDLP) 




X 


















o 


CEKBC (ASSI) 


X 


X 




X 
















CEKBD (FCON) 


X 


X 




X 
















CEKBE (RWIO) 


X 


X 




X 
















CEKBF (FORM) 




X 








X 


X 










CEKBG (PSR) 


X 


X 




X 




X 


X 










CEKBH (NAML) 




X 




















CEKBI (BLDA) 
























CEKBJ (BLDA2) 
























CEKBK (SFDEF) 




X 














X 


X 




CEKBL (SFEXP) 




X 




X 










X 


X 




CEKBM (DATA) 
























CEKBN (IMPL) 
















o 








CEKBP (IMPL2) 
















X 








CEKBQ (FALTH) 


X 






















CEKBR (BLNK) 
























CEKBS (SUBE) 




X 








X 












CEKBT (SUBE2) 


X 






















CEKBU (CALL) 


X 






















CEKBV (CALL2) 


X 


X 


X 


















CEK8W (lOLST) 


X 


X 




X 
















CEKBX (FNCLS) 




X 




















CEKBV (LIBN) 




X 





















CEKBZ (STEN2) 




X 




















CEKCA (ERR) 




o 





















CEKCB (ARITH) 
























CEKCC (LSSTR) 


X 




X 


















CEKCD (FLABL) 


X 


X 


X 


















CEKCE (RTRAN) 


X 




X 


















CEKCF (FNAME) 


X 


X 




















CEKCG (TRMPRO) 
























CEKCH (FLRC) 
























CEKCI (IVST) 




X 


X 


















CEKCJ (CKLIM) 


X 






















CEKCK (CLLIM) 


X 






















CEKCL (IVAL) 




X 




















CEKCN (iCNV) 
























CEKCP (FCNV) 
























CEKCQ (FLIC) 
























CEKCR (AARC) 


X 


X 




X 










X 


X 




CEKCS (CHKINT) 

























t ,.; c 2 1 < Str; 


3 -rtt-.p, .. 


,; C'.nl, 1 
















;: _£ ^ .^ 








Name 




^ ._ 4, ~.^ 


_ 






CEKJA (PHASE2I 


i: 


;^ :j 


o 


5 


- 




;■ /. ' o 






CLKJB (FSCAN) 


X 


1 


X 


X 


X 


CfKJC (VSCAN) 




A X 


o 








CtKJD (RTNl) 


X 












CE-KJE (LAB) 


o 


1 










ClKJF (ISP) 


o 


O i 




> 






CEKJG (FORMAT) 


o 













CFKJH (DX) 





o 













w 

z 
o 

H 
X 



Phase 3 (X = Set; 


- Refe 


enced O 


nly) 
















Name 


.2 

P f ^' 


15 
1 


c 


a. 
o „ 

— ^ 

D D 

a. 1— 


a. 
§> 

it 

U -J 


c 


Ik 


i 

a. -^ 


1 

^^ 


Ope'ond PusK- 
; dovm Table 
(OPTl ) 


CEKKA 














o 




o 




CEKKB 


X 


X 


X 










X 


X 




CEKKC 








X 


X 


X 










CEKKE 


X 


X 




X 




X 


X 


X 


X 




CEKKF 






X 








X 






X 


CEKKG 




X 


















CEKKH 






X 












X 




CEKKi 






X 












X 


X 


CEKKJ 





















o 


O 


CEKKK 























CEKKL 






O 















X 


CEKKM 






X 














X 


CEKKN 






X 














X 


CEKKO 








X 










o 




CEKKP 


















o 




CEKKR 


O 






X 








X 








CEKKS 






















CEKKU 


X 


X 




X 


O 


o 




X 






CEKKV 


X 








X 












CEKKW 


X 


X 




O 


o 













CEKLA 






X 










X 


X 




CEKLB 




X 


X 
















CEKLD 






X 
















CEKLE 














X 








CEKLF 






X 










X 


X 




CEKLI 


O 


X 


X 

















(X Sef; O ■ Referenced ) 













i 




















5 












Name 




__ 
£ 

X 


JQ 

8 
u 

1 


a. 


-X! 

s 

o 


JD 

o 

L 

z 




c 
.9 

cL 


J) 

D 

§ 


0) 

o 2 
c 

ll 

U. 1— 


CEKMA 


(RDIV) 










o 


o 






CDKMB 


(RMUL) 










o 


o 






CEKMC 


(RPLUS) 




















CEKMD 


(IDVDE) 











o 


o 






CEKME 


(IMPLY) 





















CEKMF 


(IPLUS) 








o 












CEKMG 


(CPLUS) 










o 


o 






CEKMH 


(RLTNL) 











o 


o 







CEKM! 


(ANDOR) 








o 




o 






CEKMJ 


(EQUAT) 


o 






X 










CEKMK 


(FUNC) 








X 










CEKML 


(TRBLD) 


X 




X 




X 


X 






CEKMM 


(ASAR) 








X 


o 


o 






CFKMN 


(ASARS) 








o 












CEKMO 


(ASFR) 













o 




X 


CEKMP 


(ASFRS) 


















o 


CEKMQ 


(SELFR) 










o 


o 




o 


CEKMR 


(FNDAR) 








o 










CEKMS 


(FNDFR) 
















o 


CEKMT 


(FNDWS) 


















CEKMU 


(MAX) 








o 




o 




o 


CEKMV 


(MEMAC) 








X 





o 






CEKMW 


(OPND) 








X 


X 


X 






CEKMX 


(RLSWS) 










o 









CEKMY 


(RSLT) 










X 


o 






CEKMZ 


(SADDR) 








o 










CEKNA 


(SELGD) 








o 












CEKNB 


(SELGM) 








o 


o 









CEKND 


(SELOP) 


o 








o 









CEKNE 


(WGHT) 












X 






CEKNF 


(SLPOS) 


o 






o 





o 




o 


CEKNG 


(SELSR) 


o 






o 


o 


o 






CEKNH 


(5ELDR) 








o 


o 









CEKNI 


(INSOT) 




X 














CEKNJ 


(COMMA) 










X 


X 






CEKNK 


(AIF) 








o 










CEKNL 


(LIF) 








o 











Phase 4 


X - Spt; O Reference 


d ■) 


























I 
1 


■ 










Name 




-D 




15 

D 








1 






0^ 

E 

X 


u 

o 


iz 

i 

(X 


ex: 
c 

o 


o 

m 

E 

z 




.9 

Q. 


D 

8- 


•5 5 

a. oc 

ll 


CEKNM 


(BLI) 










X 








CEKNN 


(BL2) 








X 


X 


X 


X 




CEKNO 


(BL3) 


X 












X 




CEKNP 


(ENDLP) 








X 


X 


X 







CEKNQ 


(AGO) 








X 










CEKNR 


(CGO) 


X 






X 










CEKNS 


(ASSGN) 


X 
















CEKNT 


(GOTO) 



















CEKNU 


(LABEL) 


X 
















CEKNV 


(LBL) 


o 
















CEKNW 


(AGEN) 










X 


X 




X 


CEKNX 


(PHAS4) 



















CEKOB 


(CSX) 










X 


X 






CEKOC 


(KEY) 














o 






CEKOD 


(ENT) 


o 

















CEKOE 


(RTRN) 




















CEKOF 


(CMUL) 








o 












CEKOG 


(CD IV) 










o 









CEKOH 


(RD) 


o 






X 








X 


CEKOI 


(OLIST) 


o 






X 








X 


CEKOJ 


(NDLST) 


o 






X 








X 


CEKOK 


(STOP) 









X 








X 


CEKOL 


(CALL) 


















CEKOM 


(DCOM) 


















CEKOM2 


(0PEN6) 








X 










CEKON 


(FLUSH) 



















o 


CEKOP 


(COVER) 



















CEKOQ 


(EDIT) 


















CEKOR 


(KEY1) 










o 








CEKOS 


(FETCH) 








X 


X 








CEKOT 


(OPEN!) 








X 











CEKOU 


(0PEN2) 








X 










CEKOV 


(LADDR) 








X 


X 








CEKOW 


(SLONE) 


o 






o 







o 




CEKOX 


(OPEN3) 








X 










CEKOY 


(0PEN4) 








X 










CEKOZ 


(OPENS) 








X 














c 

3 
O 



OC 

0i 



£i 


c 

U 
4) 

0) 
OC 

m 

H 
jQ 
m 
hi 

u 
o 



o 



4J 



Q 



Phose 5 {X = Set; 0= Referenced Only) 





Name 


Symbol Table 


Storage Cinss 
Table 


Code F;k- 


o 5 

O S 


Internal Symbol 
D.ctionory (ISD) 


E ? 

D 

o .a 


CEKSA 


(PHASES) 














CEKSB 


fBUILD) 




O 






X 


O 


CEKSC 


(CMS EC) 




o 








c 


CEKSD 


(SPECS) 


o 












CEKSE 


(PHEAD) 














CEKSF 


(COSEC) 


o 


o 


O 


O 


X 


X 


CEKSG 


(PRSEC) 


o 


o 




o 






CEKSH 


(ASSIST) 


o 


o 






o 




CEKSI 


(EDIT) 


o 


o 


O 


o 






CFKSJ 


(SYMSRT) 
















CEKSK 


(CRFSRT) 


o 




o 








CEK5L 


(CONCV) 


o 




. ™,. i 









All Exec routines set f-he Int-ercom and Excom. 
CEKTF olso sets the Symbol Table. 
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APPENDIX E: 



MODULE DICTIONARY 



The FORTRAN routines bear coded labels as well as mnemonic titles. The 5-character 
coded label begins witn the letters CEKj the fourth and fifth identify the specific rou- 
tine. The entry points to a routine are specified by a sixth character appended to the 
coded label; for example, the coded label for the Master Input/Output routine is CEKTH, 
and there are entry points CEKTHA, CEKTHBt etc. 



FORTRAN ROUTINES LISTED BY CODED LABELS (Part 1 of 6) 



^ , — . — ^ 

Entry 
Point 



T 1 

Chart 

ID 



Routine 
ID Label 



:ekab 



CEKAC 
CEKAD 
CEKAE 
CEKAF 
CEKAG 
CEKAH 



CEKAI 
CEKAJ 
CEKAK 
CEKAL 

CEKAM 
CEKAN 



CEKAQ 
CEKAR 
CEKAS 



CEKAT 
CEKAU 
CEKAV 
CEKAW 



CEKAX 



CEKAY 
CEKAZ 
CEKBA 

CEKBB 
CEKBC 
CEKBD 



CEKABl 
CEKAB2 
CEKACl 
CEKADl 
CEKAEl 
CEKAFA 
CEKAGl 



CEKAHl 
CEKAH2 
CEKAI 1 
CEKAJA 
CEKAKl 
CEKALl 
CEKAMA 

CEKANl 



CEKAN2 
CEKAQA 
CEKARA 

CEKASl 
CEKASR 
CEKASC 
CEKASL 
CEKASD 
CEKATl 
CEKAUA 
CEKAVl 



CEKAWl 
CEKAW2 



CEKAXl 
CEKAX2 
CEKAYA 
CEKAZ 1 
CEKBAl 

CEKBBl 
CEKBCA 



Purpose 



J. 



Obtain- next- character 

Get next non-blank character 

Get next character (including blanks) 

statement identification 

Phase 1 main loop 

Assemble components 

Process array dimension specification 

Process subscripts 

Process initial value data 

specification 
Entry for Type statements 
Entry for DATA statements 
Process expression 
Process statement label 
Process assignment statement 
Process E^D statenent 
Process EXTERNAL statement 
Conversion 
Converts constants to new 

type and checks legal type 

mixes for expressions 
Converts constants to new type 
Process GO TO statement 
Process IF statement 
Process Type statement 
Entry for INTEGER statements 
Entry for REAL statements 
Entry for COMPLEX statements 
Entry for LOGICAL statements 
Entry for DOUBLE PRECISION statements 
Process CONTINUE statement 
Process DIMENSION Staten^nt 
Process COMMON statement 
Process declatation 
statements in Pass 2 
Entry for COMMON statements 
Entry for other declaration 

statements 
Process executable sta tenants 

in Pass 2 
Entry for no-flow staten^nts 
Entry for flow- thru stat«iients 
Process EQUIVALENCE statement 
Process DO statement 
Analyzes and encodes begin 

loop information 
Encodes the end loop entries 
Process ASSIGN statement 
Process file control sta tenants 



Mnemonic 

+- + 

ESC 

ESC 

ESCB 

SID 

PHIM 

ACOMP 

ARDIM 

SUBS 

IDATA 

TDATA 

DDATA 

EXPR 

LABL 

EQUA 

END 

EXTE 

CNVRT 

CNVRT 



CNVRTD 

GOTO 

IF 

TYPE 

INTE 

REAL 

COMP 

LOGL 

DOBP 

CONT 

DIMN 

COMM 

DCL2 

C0MM2 
DCL2 

EXEC 2 

NF2 

FL2 

EQUI 

DO 

BGNLP 

ENDLP 

ASSI 

FCON 



Phase 



BV 



1 
1 
1 
1 

1 
1 



1 1 


BL 


1 


CN 


1 


AN 


1 


BG 


1 1 


AO 


1 


BM 



1 
1 
1 



1 
1 
1 
1 



1 
1 
1 

1 
1 
1 



CM 
AM 
BW 
CK 
AQ 
CI 



AP 
AQ 
AR 



None 
AS 
AT 
None 



BH 



CA 
CC 

FM 

CC 
AW 
AX 
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FORTRAN ROUTINES LISTED BY CODED LABELS (Part 2 of 6) 



J. , — ^^^ ^ — -,- . . — ^ ^ -,. 


r ^ 


r 1 


1 Routine 


1 Entry 








\ Chart 1 


1 ID Lai3el 


1 Point 


1 Purpose 


i Mnemonic 


1 Phase 


i II> 1 


1- 


H-- '"' 


^ ^ ^^. ^„, «^^^. 


I- 


h 


h i 




1 CEKBDl 


1 Entry for BACKSPACE statement 


1 BXSP 








1 CEKBD2 


1 Entry for END FILE statement 


ENDF 








1 CEKBD3 


1 Entry for REWIND statement 


1 REWI 






1 CEKBE 




1 Process input/output statements 


RWIO 


1 


\ AY 1 




1 CEKBEl 


1 Entry for READ statement 


1 READ 








1 CEKBE2 


1 Entry for WRITE statement 


, WRIT 








1 CEKBE3 


1 Entry for PRINT statement 


PRNT 








1 CEKBEil 


1 Entry for PUNCH statement 


i PUNCH 






1 CEKBF 


1 CEKBFl 


1 Process FORMAT statement 


FORM 


1 


1 A2 1 


1 CEKBG 




1 Process PAUSE, STOP, RETURN 
1 statements 


PSR 


1 


, BA 1 




CEKBGl 


Entry for PAUSE statement 


PAUS 








1 CEKBG2 


1 Entry for STOP statement 


STOP 






1 


CEKBG3 


1 Entry for RETURN statement 


RETU 








i CEKBG4 


1 Stop when execution flows into END 


ESTOP 






1 CEKBH 


CEKBHl 


Process NAMELIST staten^nt 


1 NAML 


1 


BB I 


1 CEKBI 


1 CEKBIl 


1 Process BLOCK DATA statement 


BLDA 


1 


1 BC 1 


1 CEKBJ 


1 CEKBJl 


Sets the program type for 
the BLOCK DATA statenent 


i BLDA2 


1 


None 1 


1 CEKBK 


CEKBKl 


Enables EXPR to translate 
a statement function expression 


SFDEF 


1 


BN t 


1 CEKBL 




Expand- statement-functions 


SFEXP 


1 


BO 1 




CEKBLl 


Statement function expansion 
initia li za tion 


SFEXPI 

1 








CEKBL2 


Statement function expansion 
continuation 


SFEXPC 






1 CEKBM 


CEKBMl 


Process DATA statement 


DATA 


1 


1 BD 1 


1 CEKBN 


CEKBNl 


Process IMPLICIT statement 


IMPL 


1 


BE 1 


1 CEKBP 


CEKBPl 


Perform final IMPLICIT 
statement housekeeping 


IMPL2 


1 


None 1 


1 CEKBQ 


CEKBQA 


Determine if a label reference refers 
to the current statement 


FALTH 


1 


CO 1 


1 CEKBR 


CEKBRl 


Process a blank source statement 


BLNK 


1 


None 1 


i CEKBS 1 




Process subprogram entry statements 


SUBE 


1 


BF 1 




CEKBSl 


Process ENTRY statement 


ENTR 








CEKBS 2 


Process FUNCTION statement 


FUNC 1 








CEKBS3 


Process SUBROUTINE | 


SUBR 






CEKBT 1 




Process subprogram entry 
statements in Pass 2 \ 


SUBE2 i 

1 


1 


BI 1 




CEKBTl i 


Process ENTRY statement 


ENTR2 








CEKBT2 ! 


Process FUNCTION statement 


FUNC2 








CEKBT3 


Process SUBROUTINE statement | 


SUBR2 






CEKBO 1 


CEKBOl 1 


Process CALL statement 


CALL 1 


1 


None 1 


, CEKBV 1 


CEKBVl 


Process CALL statoaent in Pass 2 | 


CALL2 


1 


BJ 1 


CEKBW 1 


CEKBWl 1 


Analyze and encode list elements for 
READ, WRITE, PRINT, and PUNCH | 
statements 


lOLST ! 

1 
1 


1 1 


CE 1 


CEKBX 1 


CEKBXl i 


Determine the proper class | 
of a function ■ 


FNCLS 1 

1 


1 


BP I 


CEKBY 1 




Select- library-functions | 


LIBN ! 


1 


BQ 1 




CEKBYl 1 


Functions with automatic typing 


LIBN 1 








CEKBY2 ! 


Functions used as arguments | 


LIBNA i 








CEKBY3 1 


Exponential library function 
selection | 


LIBNX 1 
1 






CEKBZ 1 


CEKBZl 1 


Determine statement function 
in Pass 2 | 


STFN2 1 
1 


1 1 


None 1 


CEKCA 1 




Generate diagnostic messages 


ERR 1 


1 ! 


CP 1 




CEKCAA 1 


Warning messages (error level 1) | 


ERRl 1 




1 




CEKCAB 1 


Serious messages Cerror level 2) 


ERR2 1 








CEKCAC ! 


Serious messages associated | 
with statement deletion 
Cerror level 2) | 


ERRD 

1 
1 
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FORTRAN ROUTINES LISTED BY CODED LABELS (Part 3 of 6 ) 



Chart 
ID 



Routine 
ID Label 

CEKCAD 
CEKCB 
CEKCC 
CEKCD 



CEKCE 



CEKCF 1 


CEKCFl 


CEKCG 


CEKCGl 


CEKCS 


CEKCHl 


CEKCI 


CEKCI 1 


CEKCJ 


CEKCJl 


CEKCK 


CEKCKl 


CEKCL 1 






CEKCLl 




CEKCL2 


CEKCN 


CEKCNl 


CEKCP 


CEKCPl 


CEKCQ 


CEKCQl 


CEKCR 


CEKCRl 


CEKCS 






CEKCSl 




CEKCS2 




CEKCS3 




CEKCS4 




CEKCS 5 


CEKJA 


CEKJAl 


CEKJB 


CEKJBl 



CEKJC 



CEKJD 


CEKJDl 


CEKJE 


CEKJEl 


CEKJF 


1 CEKJFl 


CEKJG 


CEKJGl 


CEKJH 






CEKJHl 




CEKJH2 




CEKJH3 


CEKKA 


CEKKAA 


CEKKB 


CEKKBA 


CEKKC 


CEKKCA 


CEKKE 


1 CEKKEA 


CEKKF 


1 CEKKFA 


CEKKG 


CEKKGA 


CEKKH 


1 CEKKHA 


CEKKI 


CEKKIA 



CEKKJ 



CEKKK 


CEKKKA 


CEKKL 


1 CEKKLA 


CEKKM 


CEKKMA 


CEKKN 


1 CEKKNA 


CEKKO 


CEKKOA 



Entry 
Point 



CEKCBl 
CEKCCA 
CEKCDl 



CEKCEl 



CEKJCl 



CEKKJA 



Purpose 

Fatal messages (error level 3) 
Perform constant arithmetic 
Process label string 
Process format label for 

input /out put statements 
Process ERR and END labels 

for input/output statements 
Process FORMAT or NAMELIST name 
Process subscript term 
File real and complex 

constants in Symbol Table 
Insert variable in Symbol Table 
Check loop limits 
Clear loop limits 
Process initial value 
First value in type statement group 
Other than first value in 

type statement group 
Convert decimal to binary integer 
Convert decimal to floating binary 
File integer constant 
Provide service in processing actual 

a rgument 
Provide for treatment of interruptions 
Divide check 
Exponent overflow 
Return flags 
Enable 3 interruptions 
Disable 3 interruptions 
Control Phase 2 
Process label references 

and definitions 
Make storage assignments 

for all variables 
Process label references 
Process label references 
Inspect statement label references 
Inspect format reference 
Generate diagnostic messages 
Warning messages 
Serious messages 
Abort messages 
Acquire entry from Compute 

and Removal Table 
Generate Polish expression 
Process End Loop entries in PRF Table 
Scan entry in the Expression File 
Pushdown primitive operator 
Determine the forward 

compute point and removal 

level for a variable 
Manipulate Triad File 
Determine commonality or 

removability of an expression 
Determine i^ether entries 

in tne PRF are common 
Establish common expression 
Form operand list expression 
Revise subscript eiQ>ression 
Put expression into cannonical form 
Save popularity counts for 

register assignment 



Mnemonic 

ERR3 
ARITH 
LBSTR 
FLABL 

RTRAN 

FNAME 

TRMPRO 

FLRC 

I^ST 

CKLIM 

CLLIM 

IVAL 

I7AL 

IVALl 

ICN¥ 
FCWI 
FLIC 
AARG 

CHKINT 
CEKCSl 
CEKCSl 
CHKINT 
CHKINT 
CEKINT 
PHASE2 
FSCAN 

VSCAN 

RTNl 

LAB 

ISP 

FORMAT 

DX 

DXW 

DXF 

DXA 



Phase 






1 


1 CH 


1 


BS 


1 


BX 


1 


BY 


1 


CD 


1 


1 None 


1 






1 CJ 




AI 


1 


BZ 


1 


CA 


1 


None 


1 


BT 



3 
3 
3 
3 



BR 
CL 
CF 

CG 



BO 



BO 

BU 

Fig. 19 
CR 



CQ 



2 


1 cs 


2 


CT 


2 


None 


2 


None 


2 


1 CO 


2 




2 




2 




3 


DP 


3 


DQ 


3 


CX 


3 


DA 


3 


1 DC 


3 


DD 


3 


DF 


3 


DH 



DK 

DJ 
DE 
DO 
DH 
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FORTRAN ROUTINES LISTED BY CODED LABELS (Part 4 of 6) 



Chart 
ID 



1 Routine 


Entry \ 


1 ID Label 

\- -^ 

1 CEKKP 


Point 1 

h + 

CEKKPA 1 


1 CEKKR 






CEKKRA 1 




CEKKRE 1 


1 CEKKS 


1 


1 CEKKU 


CEKKUA 1 


1 CEKKV 


CEKKVA 1 


1 CEKKW 


CEKKWA 1 


1 CEKLA 


CEKLAA 1 


i CSKLB 


CEKLBA 1 


1 CEKLD 


CEKLDA 1 


1 CEKLE 


CEKLEA 1 


1 CEKLF 


CEKLFA 1 


1 CEKLI 


CEKLIA 1 


1 CEKMA 


CEKMAl 1 


1 CEKMB 


CEKMBl 1 


1 CEKMC 


CEKMCl 1 


1 CEKMD 


CEKMDl 1 


1 CEKME 


CEKMEl 1 


1 CEKMF 


CEKMFl 1 


1 CEKMG 


CEKMGl 1 


1 CEKMH 


CEKMHl 1 


1 CEKMI 


CEKMIl 1 


1 CEKMJ 


CEKMJl 1 


I CEKMK 


CEKMKl 1 




CEKML2 1 


1 CEKML 


CEKMLl 1 


1 CEKMM 


CEKMMl 1 


1 CEKMN 


CEKMil 1 


1 CEKMG 


CEKMOl 1 


1 CEKMP 


CEKMPl 1 


1 CEKMQ 


CEKMQl 1 


1 CEKMR 


CEKMRl 1 


1 CEKMS 


CEKMSl 1 


1 CEKMT 


CEKMTl 1 


1 CEKMO 


CEKMUl 1 


1 CEKMV 


CEKMVl 1 




CEKMV2 1 


1 CEKMH 


1 CEKMW 1 




CEKMWl 1 




CEKMW2 1 




CEKMW3 1 


f CEKMW 


CEKMWl 1 


1 CEKMX 


CEKMXl 1 


1 CEKMY 


i CEKMYl 1 


1 CEKMZ 


CEKMZ 1 1 


1 CEKNA 


CEKNAl 1 


1 CEKNB 


i CEKNBl 1 


1 CEKND 


1 CEKNDl 1 



Purpose 



Searcb and insert triad 

Control Phase 3 

standard entry by EXEC 

Error exit by all Phase 3 routines 

Phase 3 storage 

Manipulates the PRF entry 

into its proper PF format 
Process the Begin Loop 1 

entries in PRF 
Process the Begin Loop 2 

entries in PRF 
Label common expression 
File a constant, compute 

and file its covering 

Adcon, and compute displacement 
Expunge a remc^mble subexpression 
File CRT entries 
Copy and edit an expression 
Generate loop text- express ion 
Generate real divide 
Generate real multiply 
Generate real plus 
Generate integer divide 
Generate integer multiply 
Generate integer plus 
Generate complex plus 
Generate relational expression 
Generate logical expression 
Process equation program file entry 
Generate external function 
Generate tree entries for a con- 
version function 
Build expression tree 
Make initial assignment to 

General Register 
Assign to Arithmetic Register 
Make initial assignment to 

Floating-Point Register 
Make synonym assignment 

to Floating Register 
Select Floating Register 
Search General Registers 
Search Floating Registers 
Find temporally storage 
Generate maximum operator 
Access storage 

Process operands 

Process variable or constant 

Process operator 

Process common expression 

Process operand 

Release temporary storage 

Process Result- Register operand 

Generate local branch 

Determine iirti ether division 

may take place in register 

pair containing numerator 
Determine availability of 

register for multiplication 
Select operand 






Mnemonxc 



PSECT 



RDIV 

RMOL 

RPLUS 

IDVDE 

IMPLY 

IPLUS 

CPLOS 

RLTNL 

ANDOR 

EQOAT 

FUNC 



TRBLD 
ASAR 

ASARS 
ASFR 

ASFRS 

SELFR 

FNDAR 

FNDFR 

FND'^S 

MAX 

MEMAC 

LSUB 

OPND 

OPND 

TROP 

CSOP 

OPND 

RLSWS 

RSLT 

SADDR 

SELGD 



SELGM 
SELOP 



Phase 



3 
3 
3 
3 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 

4 

4 

4 
4 



DG 



None 

CM 

CY 
CZ 

DL 

IW 



DN 
DM 
DB 
DT 
ES 
ER 
KM 
EV 
EW 
ET 
EX 
FA 
FB 
DW 
FD 
None 

EN 

GE 

GF 
None 

GG 



4 


GD 


4 


FX 


4 


FY 


4 


GH 


4 


FC 


4 


FM 


4 


None 




1 FZ 


4 




4 


NK 


4 


NK 


4 


FZ 


4 


GI 


4 


GA 


4 


FN 


4 


FU 


4 


FT 


4 


FQ 
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FORTRAN ROUTINES LISTED BY CODED LABELS (Part 5 of 6) 



J. ^-. ^, , . ^_ — ^ ^ ^^. -J. ^ «^ 


1 Routine 


Entry 


1 






Chart 1 


1 ID Label 


Point 


Purpose 


Mnemonic 


Phase 


ID 1 


J. — , — , ^. — 


r • 


^ .^ „„„- . 


h ~^ 


h — — ^ 


4 


1 CEKNE 


CEKNEl 


Assign a weight to each non- 
primitive mode of the 
expression tree i 


WGHT 


4 


EO 1 


1 CEKMF 


CEKNFl 


Select position for operation 


SLPOS 


4 1 


FR 1 


1 CEKNG 


CEKNGl 


Select single General Register 


SELSR 


4 


GB 1 


1 CEKNH 


CEKNHl 


Select even/odd General 
Register pair | 


SELDR 


^ 1 


GC 1 


1 CEKNI 


CEKNIl 


Output code file 


INSOT 


4 


GK 1 




CEKNI2 


Error processing for code ! 
file overflow 


♦ 


4 


None 1 


1 CEKNJ 




Process comma operator 


COMMA 


4 


FE 1 




CEKNJl 


Entry for other cases 


COMMA 








CEKNJ2 


Entry for CEKMK when 
function has only one argument 


C0MA2 






1 CEKNK 


CEKNK 


Process arithmetic IF PF entry I 


AIF 


4 


DX 1 


1 CEKNL 


CEKNLl 


Process logical IF PF entry 


LIF 


4 


DY 1 


i CEKNM 


CEKNMl 


Process begin loop 1 PF entry 


BLl 


4 


EE 1 


1 CEKNN 


CEKNNl 


Process begin loop 2 PF entry 


BL2 


4 


EF 1 


1 CEKNG 


CEKNOl 


Process begin loop 3 PF entry 


BL3 


4 


EG 1 


1 CEKNP 


CEKNPl 


Process end loop PF entry 


ENDLP 


4 


EH 1 


1 CEKNQ 


CEKNQl 


Process assigned GO TO PF entry 


AGO 


4 


EA 1 


1 CEKNR 


CEKNRl 


Process computed GO TO PF entry 


CGO 


4 


EB 1 


1 CEKNS 


CEKNSl 


Process ASSIGN PF entry 


ASSGN 


4 


DZ 1 


1 CEKNT 


CEKNTl 


Process GO TO PF entry 


GO TO 


4 


None 1 


1 CEKNU 


CEKNUl 


Process referenced label PF entry 


LABEL 


4 


DV 1 


1 CEKNV 


CEKNVl 


Generate labeled branch 


, LBL 


4 


FO 1 


1 CEKNW 


CEKNWl 


Generate arithmetic expression ! 


AG EN 


4 


EM 1 


1 CEKNX 


CEKNXl 


Control Phase 4 


PHAS 


4 


Fig. 30 1 


1 CEKOB 


CEKOBl 


Count common expression usage 


CSX 


4 


EP 1 


1 CEKOC 


CEKOCl 


Determine the location of 
both operands of the 
current operation 


KEY 


** 


FV 1 


1 CEKOD 


; CEKODl 


Process entry point 


ENT 


4 


DU 1 


1 CEKOE 


CEKOEl 


Process RETURN 


RTRN 


4 


ED 1 


t CEKOF 


CEKOFl 


Generate complex multiply 


CMUL 


4 


EY 1 


1 CEKOG 


CEKOGl 


Generate complex divide 


CDIV 


4 


EZ 1 


1 CEKOH 


CEKOHl 


Process input /output 
statement PF entry 


RD 


4 


EI 1 


1 CEKOI 


CEKOIl 


Process input/output list 
element PF entry 


lOLIST 


4 


EJ 1 


1 CEKOJ 




Process and list PF entry 


NDLST 


4 


EK 1 




i CEKOJl 


Process an end list program 
file entry 


NDLST 








CEKOJ2 


Generate a standard call linkage 


LINK 






I CEKOK 


CEKOKl 


Process STOP and PAUSE 
statement PF entry 


I STOP 


4 


EL 1 


1 CEKOL 


CEKOLl 


Process CALL statement 


CALL 


4 


EC 1 


1 CEKOM 


i DCOM 


i Control selection of open 
function processing 


DCOM 


^ 


FF 1 


1 CEKOM2 


I 0PEN6 


1 Process function numbers 
3, 4, 6-11, 16, 21, 21*, 
25, 28-32 


0PEN6 


4 


FL 1 


1 CEKON 


CEKONl 


Clear register 


FLUSH 


4 


GS 1 


1 CEKOP 


i CEKOPl 


1 Obtain Adcon cover for 

generation of a reference 


COVER 


4 


None 1 


t CEKOQ 


CEKOQl 


Edit for code file | 


EDIT 


4 


None 1 


1 CEKOR 


CEKORl 


Locate single operand 


1 KEYl 


4 


FW 1 


1 CEKOS 
1 


i CEKOSl 


1 Ensure that each argument of a 

function or subroutine is in memory 
1 with desired sign 


FETCH 


4 


FP t 


1 CEKOT 


CEKOTl 


Process open function 


i OPENl 


4 


FG 1 
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FORTRAN ROUTINES LISTED BY CODED LABELS (Part 6 of 6> 



^ , — _ — ^_^, — , 


r "" """ "" 


^ ^ 


^ .^^ , — ^ 


1 Routine 


1 Entry 








1 Chart 1 


1 ID Label 


1 Point 


1 Purpose 


1 Mnemonic 


1 Phase 


1 ID 1 


j. 


H-— 


|.„^ . ^„, ^ „ ^. 


I-- • ■ 


1" --. 


j. ^^ 


1 CEKOO 


1 CEKOUl 


1 Process open function 


1 0PEN2 


i ^ 


\ FH 1 


i CEKOV 


1 CEKOVl 


1 Add by load address 


1 LADDR 


1 4 


1 sw 1 


1 CEKOW 


1 CEKOWl 


1 Select one operand in a register 


1 SLONE 


I ^ 


FS 1 


1 CEKDX 


1 CEKOXl 


1 Process open function 


1 0PEN3 


1 ^ 


1 FI 1 


1 CEKDY 


CEKOYl 


1 Process open function 


1 0PEN4 


4 


1 FJ 1 


1 CEK02 


j CEKOZl 


Process open function 


1 OPENS 


4 


FK 1 


1 CEKSA 


CEKSAl 


! Generate FORTRAN compiler output 


1 PHASES 


1 5 


1 None 1 


1 CEKSB 


1 CEKSBl 


1 Build object program module 


1 BUILD 


i 5 


GL 1 


1 CEKSC 


! CEKSCl 


1 Generate common control section 


i CMS EC 


1 5 


1 GM 1 


1 CEKSD 


CEKSDl 


Process preset data 


1 SPECS 


5 


GP 1 


1 CEKSE 


^ CEKSEl 


[ Produce page headings for 

each Phase 5 output page 


, PHEAD 


1 5 


1 None i 


1 CEKSF 


CEKSFl 


: Generate code control section 


COS EC 


i 5 


1 GN 1 


1 CEKSG 


CEKSGl 


Build PSECT 


1 PRSEC 


5 


GO 1 


1 CEKSH 


CEKSei 


Generate Internal Symbol Dictionary 


ASSIST 


1 5 


1 GQ 1 


1 CEKSI 


CEKSIl 


Document object program 


1 EDIT 


5 


GR 1 


1 CEKSJ 


CEKSJl 


Sort symbol table 


SYMSRT 


5 


1 GS 1 


1 CEKSK 


CEKSKl 


List cross-reference 


j CRFSRT 


1 5 


GO t 


1 CEKSL 


CEKSLl 


Convert constant 


CONCV 


5 


GT j 


1 CEKTA 


CEKTAA 
CEKTAB 
CEKTAC 


Control compiler phases 
LPC to FORTRAN initial 
LPC to FORTRAN continue 
LPC to FORTRAN early-end 


j PHC 


, Exec 


AB 1 


1 CEKTC 


CEKTCA 


Get next source statement 
(contains CEKTI and CEKTJ) 


GNSS 


Exec 


AC 1 


1 CEKTD 


CEKTDA 


Process terminal modification 


MOD 


Exec 


AD i 


1 CEKTE 


CEKTOA 


Receive diagnostic messages 


t RIM 


Exec 


AE 1 


1 CEKTF 




Constant filers 


CONFIL 


Exec 


AF 1 




CEKTFB 


File 1*2 constants 


CONI2 


1 






CEKTFC 


File I*** constants 


CONI4 








CEKTFD 


File R*4 constants 


C0NR4 


1 






CEKTFE 


File R*8 constants 


C0NR8 








CEKTFF 


File C*8 constants 


CONC8 


1 






CEKTFG 


File C*16 constants 


C0NC16 








CEKTFI 


File storage Class 4 

other than R-cons 


FLAD4 


1 
1 






CEKTFJ : 


File storage Class 5 constants 


FLAD5 


1 






CEKTFK 


File V-con, R-con pairs 


FLADVR 1 


1 






CEKTFL ! 


File labels ! 


FLL 


1 






CEKTFM 


Create and file labels 


CRL 


AN i 




1 CEKTH 1 




Provide communication i 
between interface programs 
C contains CEKTK, CEKTL, and CEKTM) i 


MIO 


Exec 

1 
1 


AG 1 

1 




CEKTHA 1 


Open the list data set 


LDOPEN 


1 


AN 1 




CEKTHB 


Close the list data set j 


LDCLOSE 1 


1 


1 




CEKTHC 


Obtain a line for GNSS 


LINEIN ! 


1 






CEKTHD 


Output diagnostic lines | 


DIAGOOT 1 


1 






CEKTHE 


Add lines to list data set 


OLR j 


1 






CEKTBF 


Flush a statement buffer | 


BFLOSH i 


1 




1 CEKTI 1 


CEKTIA 


Analyze console source line | 


ANALYZ 1 


Exec i 


AH i 


1 CEKTJ : 


CEKTJA 


Inspect a console character 


INSCON 1 


Exec 1 


AI 1 


1 CEKTK 1 


CEKTKA 


Move a line to a list data set | 


U>mWE 1 


Exec 1 


AJ 1 


1 CEKTL i 


CEKTLA 


Build a list data set buffer 


BOILD ! 


Exec 1 


AK 1 


1 CEKTM 


CEKTBIA 


Flush a list data set buffer | 


FWJSH 1 


Exec j 


AL 1 


i CEKTQ ! 


CEKTQl ' 


Prepare hexadecimal 

dumps of internal files | 


CQMDOMP 

1 


Exec 1 
1 


None 1 


1 CEKTS 1 


CEKTSA 1 


Form lines and issue them 
via POT macro instruction | 


LINDOMP 1 

1 


Exec 1 
1 


None 1 
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FORTRAN ROOTINES LISTED BY MNEI40NICS CPart 1 of 6) 



Mnemonic 

AARG 

ACOMP 

AGEN 

AGO 

AIF 

ANALYZ 
AN DOR 
ARDIM 

ARITH 
ASAR 

ASARS 
ASFR 

ASFRS 

ASS3N 

ASSI 

ASSIST 

BGNLP 

BLDA 
BLDA2 



Bi.1 


CEKNKl 


BL2 


1 CEKNNl 


BL3 


CEKNOl 


^^ILD 


C'-'-'IT 


PaiLD 


CEKS31 


CALL 


1 CEKBOl 


CALL 


CEKOLl 


CALL2 


CEKBVl 


CDIV 


CEKOGl 


CGO 


CEKNRl 



CHKINT 





CEKCSl 




CEKCS2 




1 CEKC^3 


CKLIM 


CEKCJl 


CLI.IM 


CEKCKl 


CMSEC 


CEKSCl 


CI€JL 


1 CEKOFl 


CNVRT 




CNVRT 


CEKANl 


CNVaTD 


CiKAK2 


ZC'DVAP 


C'l^^TC: 


COMM 


CEKAVl 


COMMA 






CEKNJl 




CEKNJ2 



Entry 
Point 

CEKCRl 

CEKAEl 
CEKNWl 
CEKNQl 

CEKNiCl'-i 
CEKTIA 
CEKMIl 
CEKAFA 

CEKCBl 
CEKMMl 

CEKMNl 
CEKMOl 

CEKMPl 

CEKNSl 
CEKBCA 
CEKSHl 

CEKBAl 

CEKBIl 
CEKBJl 



Purpose 

Provide service in processing 

actual argument 
AsseiTible components 
Generate arithmetic expression 
Process assigned GO TO 

PF entry 
Process arithmetic IF PF entry 
Analyze console source line 
Generate logical expression 
Process array dimension 

specif ication 
Perform constant arithmetic 
Make initial assignment to 

General Register 
Assign to Arithmetic Register 
Make initial assignment to 

Floating-Point Register 
Make synonym assignment 

to Floating Register 
Process ASSIGN PF entry 
Process ASSIGN statement 
Generate Internal Symbol 

Dictionary 
Analyzes and encodes begin 

loop information 
Process BLOCK DATA statem^it 
Sets the program type for 

tne BLOCK DATA statement 



3C 



-ce 



stat€:::.ent 
JTocesL-. oe^in loop 1 PF entry 
Process begin xoop 2 PF entry 
Process oegxn loop 3 PF entry 

Oi I:- ^i-t -iet^ set Differ 
lUili objecr program module 
Process CALL statement 
Process CALL statement 
Process CALL statement in 

Pass 2 
Generate complex divide 
Process computed GO TO 

PF entry 
Provide for treatment of 

interrupts 
Divide check 
Exponent overflow 
Return flags 
Check loop limits 
Clear loop limits 
Generate common control section 
Generate complex multiply 
Conversion 
Converts constants to new 

type and checks legal type 

!Ei .OS for expressions 
7oriV:-r"c3 con..tants to new type 

•tiMtp cou»|-»ixer iXj.e 
Process COMMON statement 
Process comma operator 
^ntry lor other cases 
Entry ' or CEKhF when function 

hss CTily en a 'jirgmrient 



Routine 
ID Label 

CEKCR 

CEKAE 
CEKNW 
CEKNQ 

CEKNK 
CEKTI 
CEKMI 
CEKAF 

CEKCB 
CEKMM 

CEKMN 
CEKMO 

CEKMP 

CEKNS 
CEK3C 
CEKSH 

CEKBA 

CEKBl 
CEKBJ 

CEKr#: 
CEKNN 
CEKl^O 
^. KIL 
CZKSB 
CEKRU 
CEKOL 
CEKBV 

CEKDG 
CEKNR 

CEKCS 



CEKCJ 
CEKCK 
CEKSC 
CEKOF 
CEKAN 



CI KTZ' 
CEKAV 
CEK^^J 



Phase 



T- ■ 1 

Chart 
ID 






1 

Exec 

1 
1 

4 



BT 

B^ 
EM 
EA 

DX 
AH 
FB 
CK 

BR 
GE 

GF 
None 



DZ 
AR 

GQ 

CB 

BC 
None 



k 


E:f. 


i^ 


EF 


4 


EG 


ec 


K 


5 


GL 


1 


None 


4 


EC 


1 


BJ 


4 


EZ 


4 


EB 



BO 



CD 
None 
GM 
EY 

BM 



AT 

FE 
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FORTRAN KOOTINES LISTED EY MIvEKONICS (Part 2 of 6) 



^^™_- ,^ ^, . _^ — ^^ — ^-. . — ^ — ^ -^ 


J.. 




Entry 




Routine 




Chart 


1 i'4nemonic 


Point 


Purpose 


ID Label 


Phase 


ID 


L 




.__ . , , . ^ 




. 





|. .. . 




.™ — . — 








1 CDNCV 


CEKSLl 


Convert constant 


CEKSL 


5 


GT 


1 CONFIL 


CEKTFB 

CSKTFC 

CEKTFD 

CEKTFE 

CEKTFF ' 

CEKTFG 

CEKTFI 

CEKTFJ 

CEKTFK 
CEKTFL 
CEKTFM 


Constant filers 

File 1*2 constants 

File 1*4 constants 

File R*4 constants 

File R*8 constants 
- ^ile C*8 constants 

File C*16 constants 

File storage Class 4 con- 
stants other than R-cons 

File storage Class 5 
constants 

File V-con, K-con pairs 

File Labels 

Create and file labels 


CEKTF 


Exec 


AF 


1 CONT 


CEKMl 


Process CONTINUE statement 


CEKAT 


1 


None 


1 COSEC 


CEKSFl 


Generate code control section 


CEKSF 


5 


GN 


1 COVER 


CEKOPl 


Obtain adcon cover for 
generation of a storage 
reference 


CEKOP 


4 


None 


1 CPLUS 


CEKM31 


generate complex plus 


CEKMG 


4 


EX 


1 CRFSRT 


CEKSKl 


List cross-reference 


CEK3K 


5 


GU 


1 CSX 


CEKORl 


Count common expression usage 


CEKOB 


4 


EP 


i DATA 


CEKBMl 


Process DATA statement 


CEKBM 


1 


BD 


1 DCL2 




Process declaration state- 
ments in Pass 2 


CEKAW 


1 






CEKA^l 


.i^ntry for CO£»iMON statements 






None 




CEKAW2 


Entry tor otner declaration 
statements 






None 




DCOM 


Control selection of open 
function processing 


CEKOM 


4 


FF 




CEK0M2 


OPEN6 function 








1 DIMN 


CEKAUA 


Process DIMENSION statement 


CEKAU 


1 


AS 


1 DO 


CEKAZl 


Process DO statement 


CEKAZ 


1 


AV 


1 Da 




Generate diagnostic messages 


CEKJH 


2 


CU 




CEKJHl 


/Jarning messages 




2 






CEKJH2 


Serious messages 




2 






CEKJH3 


Abort fiiessages 




2 




1 EDIT 


CEKOQl 


Edit for code file 


CEKDQ 


4 


None 


1 EDIT 


CEKSIl 


Document object program 


CEKSI 


5 


GR 


1 END 


CEKALl 


Process END statement 


CEKAL 


1 


BG 


1 ENDLP 


CEKBBl 


Encodes the end loop entries 


CEKBB 


1 


cc 


1 ENDLP 


CEKNPl 


Process and loop PF entry 


CEKNP 


4 


EH 


j ENT 


CEKODl 


Process entry point 


CEKOD 


4 


DU 


1 EZ>Uh 


CEKAKl 


Process assignment statement 


CEKAK 


1 


AN 


i EQUAT 


CEKMJl 


Process equation PF entry 


CEKMJ 


4 


D^ 


1 EQUI 


CEKAYA 


Process EQUIVALENCE statement 


CEKAY 


1 


AU 


1 ERR 


CEKCAA 


Generate diagnostic messages 
Warning messages terror 
level 1) 


CEKCA 


1 


CP 




CEKCAB 


Serious messages (error 
level 2) 






GO 




CEKCACC 


Serious messages associated 
with statement deletion 
(error level 2) 










; CEKCAD 


Fatal messages (error 
level 3> 








1 ESC 


CEKABl 
i CEKAB2 


Obtain next character 

Get next non-blank character 

Get next character (including 

blanks) 

..__ .._ , . 1 


CEKAB 

L , . . 


1 

L ^ — 


BV 

._ — , 
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FORTRAN ROUTINES LISTED BY MNEMONICS (Part 3 of 6) 



^ — ^ 

Entry 

Point 
+ + 



CEKAXl 
CEKAX2 

CEKAIl 
CEKAMh 
CEKBQA 



CEKCPl 



CEKBDl 
CEKBD2 
CEKBD3 
CEKOSl 



CEKCDl 



T 1 

Chart 
ID 



Mnemonic 

EXEC 2 



EXPR 
EXTE 
FALTH 



FCMV 
FCON 

FETCH 
FLABL 



FLIC 


CEKCQl 


FLRC 


CEKCHl 


FLUSH 


CEKTMA 


FLUSH 


CEKONl 


FNAME 


CEKCFl 


FUNCLS 


CEKBXl 


FNDAR 


CEKMRl 


FNDFR 


CEKMSl 


FNDi^S 


CEKMTl 


FORM 


CEKBFl 


FORMAT 


CEKJGl 


FSCAN 


CEKJBl 


FUNC 


CEKMKl 


GNSS 


CEKTCA 


GOTO 


CEKAQA 


GOTO 


CEKNTl 


ICNV 


CEKCNl 



IDATA 





1 CEKAHl 




CEKAH2 


IDVDE 


CEKMDl 


IF 


CEKARA 


IMPL 


CEKBNl 


IMPLY 


CEKMEl 


IMPL2 


CEKBPl 


I NSC ON 


CEKTJA 


INSOT 


CEKNIl 




CEKNI2 



lOLIST 



CEKOIl 



Purpose 






Process executable statements 

in Pass 2 
Entry for no-flow statements 
Entry for flow-tnru 

statements 
Process expression 
Process EXTERNAL statement 
Determine if a label ref- 
erence refers to the current 

statement 
Convert decimal to floating 

binary 
Process file control 

statements 
Entry for BACKSPACE statement 
Entry for END FILE statement 
Entry for REWIND statement 
Ensure that each argument 

of a function or subroutine 

is in storage with desired 

Sign 
Process format label for 

input/output statements 
File integer constant 
File real and complex con- 
stants in Symbol Table 
Flush a list data set buffer 
Clear register storage 
Process FORMAT or NAMELIST 

name 
Determine the proper class 

of a function 
Search General Register 
Search Floating Register 
Find temporary storage 
Process FORMAT statement 
Inspect FORMAT reference 
Process label references and 

definitions 
Generate external fxinction 
Get next source statement 

(contains CEKTI and CEKTJ) 
Process GO TO statement 
Process GO TO PF entry 
Convert decimal to binary 

integer 
Process initial value data 

specif icia tion 
Entry for Type statements 
Entry for DATA statements 
Generate integer divide 
Process IF statement 
Process IMPLICIT statement 
Generate integer multiply 
Perform final IMPLICIT 

statement housekeeping 
Inspect a console character 
Output code file 
Error processing for code 

file overflow 
Process input /out put list 

element PF entry 



Routine 
ID Label 



CEKAX 



CEKAI 

CEKAM 
CEKBQ 



CEKCP 
CEKBD 

CEKDS 

CEKCD 

CEKCQ 
CEKCH 

CEKTM 
CEKON 

CEKCF 

CEKBX 

CEKMR 
CEKMS 
CEKMT 
CEKBF 
CEKJG 
CEKJB 

CEKMK 
GEKTC 

CEKAQ 
CEKNT 
CEKCN 

CEKAH 



CEKMD 
CEKAR 
CEKBN 
CEKME 
CEKBP 

CEKTJ 
CEKNI 



CEKDI 



Phase 



1 
1 

Exec 

1 



4 
4 
4 

1 
2 

2 

Exec 

1 
4 
1 



4 
1 
1 
4 
1 

Exec 
4 



BH 



BL 
AO 

CO 



AX 



FP 



CF 

None 

BX 

AL 
GJ 

CH 

BP 

FX 

FY 

GH 

AZ 

None 

CR 

FD 
AC 

AP 

None 

BZ 

CI 



EV 
AQ 
BE 

None 

AI 
GK 



EJ 
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FORIRAN ROUTINES LISTED BY MNEMONICS (Part 4 of 6) 



^ ^ ^_» ^. . — -l. ^ ^ . — ^-.. — . -J 


1 


Entry 




; Routine 




Chart 1 


1 Mnemonic 


1 Point 


• Purpose 


ID Label 


Phase 


ID 1 


1- ■^—^ 


k 


, ™ ^ . ^_„^ 





1 


^ j 


1 lOLST 


CEKBWl 


Analyze and encode list 
elements for READ, '^RITE, 
PRINT, and PUNCH statements 


CEKBW 


1 1 


CE 1 


1 IPLUS 


CEKMFl 


Generate integer plus 


CEKMF 


4 


ET 1 


1 ISP 


CEKJFl 


Inspect statement label 
references 


CEKJF 


2 


None t 


1 IVAL 




Process initial value 


CEKCL 


1 




1 


CEKCLl 


First value in type statement 
group 






CJ 1 


1 


CEKCL2 


Other than first value in type 

statement group 






AI 1 


1 I'/sr 


CEKCIl 


Insert variable in Symbol 

Table 


CEKCI 


1 


BY 1 


1 KEY 

1 


, CEKOCl 


Determine the location of 
both operands of the 
current operation 


CEKOC 


4 


FV 1 


1 KEYl 


CEKORl 


Locate single operand 


CEKOR 


II 


F'^ 1 


1 LAB 


CEKJEl 


Process label references 


CEKJE 


2 


CT 1 


1 LABEL 


CEKNUl 


Process referenced label 
PF entry 


CEKNU 


4 


DV 1 


1 LABL 


CEKAJA 


Process statement label 


CEKAJ 


1 


CN 1 


1 rJ^DDR 


CEKOVl 


Add by load address 


CEKOV 


4 


EW 1 


1 LBL 


CEKNVl 


Generate labeled branch 


CEKNV 


4 


FO 1 


1 LBSTR 


CEKCCA 


Process label string 


CEKCC 


1 


CL 1 


1 LDMOVE 


CEKTKA 


Move a line to a list data set 


CEKTK 


Exec 


AJ 1 


1 LIBN 
1 

1 

1 


CEKBYl 

CEKBY2 

CEKBY3 


Select library functions 
Functions with automatic 

typing 
Functions used as arguments 
Exponential library function 

selection 


CEKBY 


1 


BQ 1 


1 LIE 


CEKNLl 


Process logical IF PF 


CEKNL 


4 


DY 1 


I LINDUMP 


CEKTSA 


Dump compiler module entry 


CEKTS 


Exec 


None 1 


1 MAX 


CEKMUl 


Generate maximum operator 


CEKMU 


4 


FC 1 


1 MEMAC 


CEKMVl 
CEKMV2 


Access storage 


CEKMV 


4 


FM 1 


1 MID 

1 

1 

1 

1 

1 


CEKTHA 
CEKTHB 
CEKTHC 
CEKTHD 
CEKTHE 
i CEKTHF 


Provide communication 
between interface pro- 
grams (contains CEKTK, 
CEKTL and CEKTM) 
Open the list data set 
Close the list data set 
Obtain a line for GNSS 
Output diagnostic lines 
Add lines to list data set 
Flush a statement buffer 


CEKTH 


Exec 


AG 1 


1 MOD 


CEKTDA 


Process terminal 
modification 


CEKTD 


Exec 


AD 1 


1 MAML 


CEKBHl 


Process NAMEi^IST statement 


CEKBH 


1 


BB 1 


1 NDLST 




Process and list PF entry 


CEKOJ 


4 




1 
1 


CEKOJl 


Process an end list program 
file entry 






EK 1 


1 


CEKOJ2 


Generate a standard call 
linkage 






EK 1 


1 OPENl 


, CEKOTl 


Process open function 


CEKOT 


4 


FG 1 


1 0PEN2 


CEKOUl 


Process open function 


CEKOO 


4 


FH 1 


1 0PEN3 


1 CEKOXl 


Process open function 


CEKOX 


4 


FI 1 


1 OPEN^ 


CEKOYl 


Process open function 


CEKOY 


4 


FJ 1 


1 OPENS 


1 CEKOZl 


Process open function 


CEKOZ 


4 


FK 1 


1 CEK0M2 


0PEN6 


Process function numbers 3, «l, 
6-11, 16, 21, 2«*, 25, 28-32 


CEKOM2 


4 


FL 1 



L- ^-. . -.J — .. JL . ^ 



. ^ , ^ JL 



-JL .^. X J 
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FORTRIIN ROUTINES LISTED BY MNEMONICS (Part 5 of 6 ) 



l. -^ — . — , -J- 


I 


Entry | 


1 Mnemoni c 
1 OPND 


Point 1 

h f 

CEKMWl 1 


1 


CEKMW2 1 


1 


CEKMW3 1 


1 

1 PHAS4 


CEKNXl 1 


I PHASE2 


CEKJAl 1 


1 PHASES 
1 


CEKSAl 1 


I 

1 PHC 




1 


CEKTAA 1 




CEKTAB 1 


1 


CEKTAC 1 


1 PHEAD 
1 


CEKSEl 1 


1 

1 PHIM 


CEKADl 1 


1 PSR 




1 PAUS 


CEKBGl 1 


1 STOP 


CEKBG2 1 


1 RETU 


CEKBG3 j 


1 ESTOP 
1 


CEKBG4 1 


I 

1 PRSEC 


CEKSGl 1 


1 PSECT 


1 


1 RD 


CEKOHl 1 


1 RDIV 


CEKMAl 1 


1 RDM 


CEKTEA 1 


1 RLSWS 


CEKMXl i 


1 RLTNL 


CEKMHl 1 


1 RMUL 


CEKMBl 1 


1 RPLUS 


CEEQCl 1 


1 RSLT 


CEKMYl 1 


1 RTN 


CEKJDl 1 


1 RTRAN 


CEKCEl 1 


1 

1 RTRN 


CEKOEl 1 


1 RWIO 




1 


CEKBEl j 




CEKBE2 1 


1 


CEKBE3 I 




CEKBE4 1 


1 SADDR 


CEKMZl 1 


1 SELDR 


CEKNHl 1 


1 SELFR 


1 CEKMQl 1 


f SELGD 


CEKNAl 1 


1 

1 3ELGM 
1 


CEKNBl 1 


1 SELOP 


CEKNDl 1 


1 SELSR 


CEKNGl 1 


1 SFDEF 


CEKBKl 1 


1 SFEXP 




1 


CEKBLl 1 



^_ , ^ 

Routine 
ID Label 

+ + 

CEKMW 



CEKNX 
CEKJA 
CEKSA 



T' 1 

Chart 
ID 



Purpose 

Process operand 

Operator processing 

Cominon expression operand 

processing 

Control Phase 4 

Control Phase 2 

Generate FORTRAN compiler 

output 
Control compiler phases 
LPC to FORTRAN initial 
LPC to FORTRAN continue 
LPC to FORTRAN early-end 
Produce page headings for 

each Phase 5 output page 
Phase 1 Dr»ain loop 
Process PAUSE, STOP, and 

RETURN statements 
Entry for PAUSE statement 
Entry for STOP statement 
Entry for RETURN statement 
Stop when execution flo%fs 

into END 
Build PSECT 
Phase 3 storage 
Process input /out put 

statement PF entry 
Generate real divide 
Receive diagnostic messages 
Release temporary storage 
Generate relational expression 
Generate real multiply 
Generate real plus 
Process Result - Register 

operand 
Process label references 
Process ERR and END labels 

for input /output statements 
Process RETURN 
Process input/output 

statements 
Entry for READ statement 
Entry for §#RITE statement 
Entry for PRINT statement 
Entry for PUNCH statement 
Generate local branch 
Select even/odd General- 
Register pair 
Select Floating Register 
Determine whether division 

may take place in register 

pair containing numerator 
Determine availability of 

register for multiplication 
Select operand 
Select single General 

Register 
Enables EXPR to translate 

a statement function 

expression 
Expand statement functions 
Statement function expansion 

initialization 



CEKTA 



CEKSE 

CEKAD 
CEKBG 



CEKSG 
CEKKS 
CEKOH 

CEKMA 
CEKTE 
CEKI'iX 
CEKMH 
CEKMB 
CEEQC 
CEKMY 

CEKJD 
CEKCE 

CEKOE 
CEKBE 



CEKMZ 
CEKNH 

CEKMQ 
CEKNA 



CEKNB 

CEKND 
CEKNG 

CEKBK 



CEKBL 



Phase 



FZ 



4 

2 
5 

Exec 



5 
3 

Exec 

2 
1 

1 



Fig,30 
Fig. 19 
None 

AB 



None 



AM 

BA 



GO 

None 

EI 

ES 
AE 
GI 
FA 
ER 
KM 
GA 

CS 

CG 

ED 
AY 



FN 
GC 

GD 
FU 



FT 

FQ 
GB 

BN 



BO 
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FORTRAN ROUTINES LISTED BY MNEMONICS (Part 6 of 6) 



^ — , , — ^ 

Entry 
Point 



Mnemoni c 



SID 


I CEKACl 


SLONE 


CEKOWl 


SLPDS 


CEKNFl 


SPECS 


CEKSDl 


STFN2 


CEKBZl 


STOP 


CEKOKl 



SUBE 



SaBE2 



SUBS 

SYMSRT 

TRBLD 



TRMPRO 

TYPE 



VSCAN 



CEKBL2 



CEKBSl 
CEKBS2 
CEKBS3 



CEKBTl 
CEKBT2 
CEKBT3 
CEKAGl 
CEKSJl 
CEKMLl 
CEKML2 

CEKCGl 

CEKASl 

CEKASR 
CEKASC 
CEKASL 
CEKASD 

CEKJCl 

CEKNEl 



Purpose 



Statement function expansion 

continuation 
Statement identification 
Select one operand in a 

register 
Select position for operation 
Process preset data 
Determine statement function 

in Pass 2 
Process STOP and PAUSE 

statement PF entry 
Process subprogram entry 

statements 
Process ENTRY statement 
Process FUNCTION statement 
Process SUBROUTINE statement 
Process subprogram entry 

statements in Pass 2 
Process ENTRf statement 
Process FUNCTION statement 
Process SUBROUTINE statement 
Process subscripts 
Sort SymiDol Table 
Build expression tree 
Generate tree entries for 
conversion function 
Process subscript term 
Process Type statement 
Entry for INTEGER statements 
Entry for REAL statements 
Entry for COMPLEX statements 
Entry for LOGICAL statements 
Entry for DOUBLE 

PRECISION statements 
Make storage assignments 

for all variables 
Assign a weight to each non- 
primitive mode of the 

expression tree 



+— 



Routine] | Chart | 
ID Label 1 Phase | ID | 
+ 1 ^ 

1 1 BO 1 

1 i 1 


CEKAC 
CEKOW 


! 

1 

4 


i 1 

CM 1 
FS 1 


CEKNF 
CEKSD 
CEKB2 


4 
5 
1 


FR 1 
GP 1 
None 1 


CEKOK 


4 


EL 1 


CEKBS 


1 


BF 1 


CEKBT 


1 


BI 1 


CEKAG 
CEK3J 
CEKML 


1 
5 
4 


AQ 1 

GS I 
EN 1 


CEKCG i 
CEKAS 


1 

1 ! 

! 


BS 1 
AR 1 


CEKJC 1 


2 1 


CQ 1 


CEKNE 1 


4 1 


EO 1 
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APP ENDIX F; LINKAGE EDITED CO^^ILER ROUTINES LISTED BY CODED LABELS (MODULE NAMES ) 



Linkage Edited 
Routine ID Label 
(Module Name) 



Description 



Modules 
Included 



External Symbol 
Definitions and 
References Prior 
to Linkage Editing 



Rename Information 

-^ 



Names Following 
Linkage Editing 



CEKWX* 

(EXECFTN) 



Compiler r.xecutive 



CEKWl* 

(PHASED 



Compiler Phase 1 



CEKTA 

CEKTC 
CEKTD 
CEKTE 
CEKTF 
CEKTH 
CEKTQ 
CEKTS 

CEKAB 
CEKAC 
CEKAB 
CEKAE 
CEKAF 
CEKAG 
CEKAB 
CEKAI 
CEKAJ 
CEKAK 
CEKAL 
CEKAM 
CEKAN 
CEKAG 
CEKAR 
CEKAS 
CEKAT 
CEKAU 
CEKAV 
CEKAW 
CEKAX 
CEKAY 
CiaCAZ 
CEKBA 
CEKBB 
CEKBC 
CEKBD 
CEKBE 
CEKBF 
CEKBG 
CEKBfl 
CEKBI 
CEKBJ 
CEKBK 
CEKBL 
CEKBM 
CEKBN 
CEKBP 
CEKBQ 
CEKBR 
CEKBS 
CEKBT 
CEKBU 
CEKBV 
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(Part 2 of 5) 



Linkage Edited 

Routine ID Label 

C Module Name) 



H" 



Description 



Modules 
Included 



External Symbol 
Definitions and 
References Prior 
To Linkage Editing 



Rename Information 

-^ 



Names Followiing 
Linkage Editing 



CEKW2 

(Phase 23) 



Compiler Phases 2 
and 3 



CEKBW 
CEKBX 
CEKBY 
CEKBZ 
CEKCH 
CEKCB 



CHCBMA 

CEKCC 

CEKCD 

CEKCE 

CEKCF 

CEKCG 

CEKCH 

CEKCI 

CEKCJ 

CEKCK 

CEKCL 

CEKCN 

CEKCP 

CEKCQ 

CEKCR 

CEKCS 

CEKJA 

CEKJB 

CEKJC 

CEKJD 

CEKJE 

CEKJF 

CEKJG 

CEKJH 

CEKKA 

CEKKB 

CEKKC 

CEKKE 

CEKKF 

CEKKG 

CEKKH 

CEKKI 

CEKKJ 

CEKKL 

CEEKM 

CEKKN 

CEKKO 

CEKKP 

CEKKO 

CEKKV 

CEKKW 

CEKLA 

CEKLB 

CEKLD 

CEKLE 

CEKLF 

CEKLI 



CHCBGA 
CHCBIA 
CHCBKA 
CHCBKC 



CEKUGA 
CEKUI?L 
CEKUKA 
CEKUKC 
CEKUMA 
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(Part 3 of 5) 



Linkage Edited 
Routine ID Label 
(Module Name) 



Description 



Rename Information 



Modules 
Included 



External Symbol 

Definitions and 

References Prior 

To Linkage Editing 



Names Followiing 
Linkage Editing 



H 



CEKW4* 

CPHIISEI) 



Compiler Phase 4 



CEKMA 
CEKMB 
CEKMC 

ciaciyiD 

CEKME 
CEKMF 
CEKM3 
CEKMH 
CEKMI 
CEKMJ 
CEKMK 
CEKML 
CEKMM 
CEKMN 
CEKMO 
CEKMP 
CEKMQ 
CEKBIR, 
CEKf^ 
CEKMT 
CEKMO 
CEKMV 
CEKMW 
CEKMX 
CEKB€5r 
CEKMZ 
CEKNA 
CEKNB 
CEKND 
CEKNE 
CEKNF 
CEKNG 
CEKNH 
CEKNI 
CEKNJ 
CEKNK 
CEKNL 
CEKNM 
CEKNN 
CEKNO 
CEKNP 
CEKNQ 
CEKNR 
CEKNS 
CEKNT 
CEKNU 
CEKNV 
CEKNW 
CEKNX 
CEKOB 
CEKOC 
CEKOD 
CEKOE 
CEKOF 
CEKOG 
CEKOH 
CEKOI 
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CPart 4 of 5) 



^ — , — .^^ — . 


_^ . — .-„ .™ — 


^^ ^ ^- 


— — — — — — . ™ «__-«. -»« 








1 1 


Rename Information 






1 h 








— . , ., ^- 


~ 








External Symbol | 




1 Linkage Edited 






Definitions and | 




1 Routine ID Label 




1 Modules 1 


References Prior | 


Names Followiing 


1 (Module Name) 


1 Description 


1 Included | 


To Linkage Editing j 


Linkage Editing 


|.^™^^™™„„ ^™„„ 


„4^™^^„„, ^ 


~+- +" 

1 CEKOJ 1 
1 CEKOK 1 
1 CEKOL 1 
1 CEKOM 1 
I CEKON 1 
1 CEKOP t 
1 CEKOQ 1 
1 CEKOR 1 
1 CEKOS 1 
1 CEKOT 1 
1 CEKOU 1 
1 CEKOV 1 
1 CEKOW 1 
1 CEKOX 1 
1 CEKOY 1 
1 CEKOZ 1 


.™™ ^„™„. +. 




1 CEKW5* 


1 Compiler Phase 5 


1 CEKSA 1 






1 (CEKPflS) 




1 CEKSB 1 
1 CEKSC 1 
1 CEKSD 1 
1 CEKSE 1 
1 CEKSF 1 
1 CEKSG 1 
1 CEKSH 1 
1 CEKSI 1 
1 CEKSJ 1 
1 CEKSK 1 
1 CEKSL 1 






1 CEKOX* 


1 Contains all math- 


1 CHCAD 1 


CHCM>I 1 


CEKUQI 


1 (PimSE6) 


1 ematical library 




CHCADR 1 


CEKOQR 




1 modules required 




CHCADW 1 


CEKUQW 




1 by the compiler. 




CHCBD4 1 

CHCBD5* 1 

(BD005) 1 

CHCBZA 1 
DEXP 1 


CEKUD4 
CEKBD5 

CEKUZA 
CEKOXl* 
(DEXPU) 






1 CHCAF I 


CHCAFR 1 
CHCAFW 1 
CHCBZA 1 
DLOG 1 

DLOGIO 1 


CEKUFR 
CEKUFW 
CEKUZA 
CEKUX2* 

(DLOGU) 
CEKUX3* 

CDLOGIOU) 






1 CHCBD 1 


CHCBDR 1 
CHCBDW 1 
CHCBDl 1 
CHCBD2 1 
CHCBD3 1 
CHCBDa 1 
CHCBD5 1 
CHCBD5* 1 
CBD005) 1 
CHCBEl 1 
CHCBZA 1 


CEKUDR 
CEKUDW 
CEKUDl 
CEKUD2 
CEKUD3 
CEKUD4 
CEKUD5 
CEKBD5 

CEKUEl 
CEKUZA 
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(Part 5 of 5) 



Linkage Edited 

Routine ID Label 

(Module Name) 



h 



Description 



Rename Information 



Modules 
Included 



CHCBE 



CHCBG 



CHCBI 



CHCBK 



CHCBM 



CHCB2 



1 External Symbol 




1 Definitions and 




1 References Prior 


Names Followiing 


1 To Linkage Editing 


Linkage Editing 

1 _ .. 


^« ••.»•. .«.«i» ____—_..^__.i_ _...__ .^ . — 


1 DV^CHK 


CEKUX5 




(DVCHKU) 


1 OVERFL 


CEKUXti* 




COVERFLU) 


1 SLITE 


CEKUX6 




(SLITEO) 


1 SLITET 


CEKUX7* 




(SLITETO) 


1 CaCBER 


CEKUER 


1 CHCBEW 


CEKOEW 


1 CHCBEl 


CEKUEl 


1 CHCBGA 


CEKOGA 


1 CHCBGB 


CEKUGB 


1 CeCBGC 


CEKOGC 


1 CHCBGD 


1 CEKUGD 


1 CHCBGR 


CEKUGR 


1 CHCBGW 


CEKUGW 


1 CHCBZA 


CEKOZA 


1 CHCBIA 


CEKUIA 


1 CHCBIB 


1 CEKOIB 


I CeCBIR 


1 CEKUIR 


1 CHCBIW 


CEKUIW 


I CHCBZA 


CEKUZA 


I CHCBKA 


CEKOKA 


1 CECBKB 


CEKUKB 


1 CHCBKC 


CEKOKC 


1 CHCBKD 


CEKUKD 


1 CHCBKE 


CEKOKE 


1 CHCBKR 


CEKUKR 


1 CHCBKW 


CEKUKU 


1 CHCBZA 


CEKUZA 


I DEXP 


CEKOXl* 




CDEXPU) 


1 DLOG 


CEK0X2* 




CDLOGU) 


1 CHCBMA 


CEKUMA 


1 CHCBMB 


CEKUMB 


1 CHCBMR 


CEKOMR 


1 CHCBMW 


CEKUMW 


1 CHCBZA 


CEKOZA 


1 CHCBZA 


CEKUZA 


1 CHCBZR 


CEKUZR 


1 CHCBZW 


i CEKUZW 



♦Names given in parentheses are temporary names and will be replaced by the preceding 
name as soon as is feasible. Thus, module EXECFTN will become module CEKWX, module 
PHASE6 will become module CEKOX, entry point DEXPO will become entry point CEKUXl , 
etc. 
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INDEX 



When more than one page reference is 
given f the major reference is first. 



AARG 

(see: Actual Argument Service Routine! 
ACOMP 

Csee; Assaable Components) 
Acquire Entry from Compute and Removal 
Table 

decision table lOti 

flonchart i|58 

routine description 125 
Actual Argument Service Routine 

flowchart 331 

routine description 71-72 
Add i^ Load Address 

decision table 115 

flowchart 533-53% 

routine description 104-165 
AGEN 

Csees Arithmetic Expression Generator) 
AGO 

Csee: Assigned GO to PF Entry 
Processor) 
AIF 

Cseej Arithmetic IF PF Entry Processor) 
Alphameric constant processing 11 
ANALYZ 

Csee: Analyze Console Source Line) 
Analyze Console Source Line 

flowchart 210-211 

overview 11 

routine description 35 
ANDOR 

Csee: Logical Expression Generator) 
ARDIM 

Csee 5 Array Dimension Specification 
Processor) 
Argument Definition Point Entry 

in PF 613 

in PRF 12 
ARITH 

Csees Constant Arithmetic Subroutine) 
Arithmetic Expression Generator 

decision table 111 

flowchart 513-511 

routine description 159 
Arithmetic IF entry 

in PF 613 

in PRF 631,12 
Arithmetic IF PF Entry Processor 

decision table 112 

flowchart 176-180 

routine description 155 
Array Dimension Specification Processor 

flowchart 368-369 

routine description 77 
ASAR 

Csee: Make Initial Assignment to 
General Register) 



ASARS 

Csee: Make Synonym Assignment to 

General Register) 
ASFR 

Csee: Make Initial Assignment to 
Floating-Point Register) 
ASFRS 

Csee: Make Synonym Assignment to 
Floating Register) 
ASSGN 

Csee: Assign PF Entry Processor) 
J^semble Components 

character table 71 

decision table 75,51 

flowchart 337-311 

routine description 73-71 
ASS I 

Csee: ASSIGN statement processor) 
ASSIGN entry 

in PF 613 

in PRF 631,11 
ASSIGN PF Entry Processor 

flowchart 182 

routine description 155-156 
ASSIGN Statement Processor 

decision table 112 

flowchart 269-270 

routine description 57-58 
Assigned GO TO entry 

in PF 613 

in PRF 631,11 
Assigned C30 TO PF Entry Processor 

decision table 112 

flowchart 183 

routine description 156 
Assignmeat Character Table 78 
Assignment Precedence Table 78 
Assignment Statement Processor 

flowchart 250 

routine description 55-56 
ASSIST 

Csee: Internal Symbol Dictionary 
Generator) 

BACKSPACE entry in PRF 13 

Begin Loop Processor 
flowchart 319-350 

routine description 75 
Begin Loop 1 entry 

in PF 611 

in PRF 631,12 
Begin Loop 1 PF Entry Processor 

decision table 113 

flowchart 189 

routine description 156-157 
Begin Loop 1 PRF Processor 

decision table 103 

flowchart 121-123 

routine description 113-111 
Begin Loop 2 Entry 

in PF 611 

in PRF 631 
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Begin Loop 2 PP Entry Processor 

decision table 143 

flowchart i»90-i|98 

routine description 157 
Begin Loop 2 PRF Processor 

decision table 103 

floncliart «I2II-«I26 

routine description 111-115 
Begin Loop 3 Entry 

in PF Sm 

in PRF 63 1^ 
Begin Loop 3 PF Entry Processor 

decision table 1*1 3 

flowchart il99-501 

routine description 157 
Begin Program Entry in PRF 633, i»l 
BGNLP 

(see: Begin Loop Processor) 
Blank Statement Processor 

decision table 51 

routine description 60 
BLDA 

(sees BLOCK DATA Stat«ft«it Processor) 
BLDA2 

(see: BLOCK DATA StatCTient, Pass 2) 
BLNK 

(see: Blank Stateottent Processor) 
BLOCK DATA Statement PrcK:essor 

decision table 50,51 

flowchart 291 

routine description 60-62 
BLl 

(see: Begin Loop 1 PF Entry Processor) 
BL2 

(see: Begin Loop 2 PF Entry Processor) 
BL3 

(see: Begin Loop 3 PF aatry Processor) 
Build a List Data Set Buffer 

flowchart 2<|i| 

overview 11 

routine description 36 
BOILD 

(see: Object Program Module Builder, 
Build a List Data Set Buffer) 



CALL 

(see: CALL Statement Processor) 
CALL Entry in PF 6<I3 
call 

function 67-68 

subroutine 67-6 8 
CALL Entry in PRF 634, «I2 
CALL statement Final Proc^sing 

decision table 51 
CALL Statement, l^ss 2 

flowchart 304 

routine description 62 
CALL Statement Processor 

decision table 51,142 

flowchart 485 

routine description 62,156 
CALL2 

(see: CALL Statement Pass 2) 
Canonical Form Routine 

decision table 105 

flowchart 443-444 

routine description 121 



CDIV 

(see: 
CEKAB 

(see: 
CEKAC 

(see: 
CBKAD 

(see: 
CEKAE 

(see: 
CEKAF 



Complex Divide Generator) 

Ejctract Source Character) 

Statement of Identification) 

Phase 1 Main Loop) 

Assemble Ccwnponents) 

Array Dimension Specification 



(see: 

Processor) 
CEKAG 

(see: Subscript Processor) 
CEKAE 

(see: Initial Value Data Specification 
Processor) 
CEKAI 

(see: Expression Processor) 
CEKAJ 

(see 
CEKAK 

(see 
CEKAL 

(see 
CEKAM 

(see 
CEKAN 

(see 
CEKAQ 

(see 
CEKAR 

(see 
CEKAS 

(see 
CEKAT 

(see 
CEKAU 

(see 
CEKAV 

(see 
CEKAW 

(see 
CEKAX 

(see 
CEKAy 

(see 
CEKAZ 

(see 
CEKBA 

(see 
CEKBB 

(see 
CEKBC 

(see 
CEKBD 

Csee 
CEKBE 

(see 
CEKBF 

(see 
CEKBI3 

(see 



Statement Label Processor) 

Assignn^nt Statement Processor) 

END Statement Processor) 

EXTERHAL Statement Processor) 

Conversion subroutine) 

GO TO Statement Processor) 

IF Statement Processor) 

Type Statements Processor) 

CONTINUE Statement Processor) 

DIMENSION Statement Processor) 

CCmiON Statement Processor) 

Declaration Statement, Pass 2) 

Executable Statements, Pass 2) 

EQOIVALENCE Statement Processor) 

DO Statement Processor) 

Begin Loop Processor) 

End Loop Processor) 

ASSIGN Statement Processor) 

File Control Statement Processor) 

Input/Output Statement Processor) 

FORMAT Statement Processor) 



PAUSE, STOP, RETURN Statoient 

Processor) 
CEKBH 

(see: NAMELIST Statement Processor) 
CEKBI 
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Csee: BI0CK DATA Statement Processor) 
CEKBJ 

(see: BI/>CK, DATA Statement, Pass 2> 
CEiOBK 

Csee: Statement Function Definition) 
CEKBL 

fsee: Statement Function Expansion) 
CEKBH 

Csee; DATA Statement Processor) 
CHCBN 

(see: IMPLICIT Statement Processor) 
CEKBP " "^ 

Csee: IMPLICIT Statements, Pass 2) 
CEKBQ 

Csee: Fall Through Determination) 
CEKBR 

Csee: Blank Statement Processor) 
croBS 

Csee: Subprogram Entry Statements 
Processor) 
CEKBT 

(see: Subprogram Entry Statements, Pass 
2) 
CEKBU 

Csee: CALL Statement Processor) 
CEKBV 

Csee: CALL Statement, Pass 2) 
CEKBW 

Csee: I/O List Processor) 
CEKBX 

(sees Function Classifier) 
CEKBY 

Csee: Library Function Selector) 
CEKBZ 

(see: Statement Function Definition, 
Pass 2) 
CEKCB 

Csee: Constant Arithmetic Subroutine) 
CEKCC 

Csee: Label String Processor) 
CEKCD 

Csee: Format Label Processor for I/O 
Statements) 
CEKCE 

Csee: Read Transfer Processor for I/O 
Statements) 
CEKCF 

Csee: FORMAT or NAMELIST Name 
Processor) 
CEKCG 

Csee: Term Processor) 
CEKCe 

(see: File Real Constant) 
CEKCI 

Csee: Insert Variable in Symbol Table) 
CEKCJ 

Csee: Check Limits) 
CEKCK 

Csee: Clear Limits ) 
CEKCL 

Csee: Initial Value Processor) 
CEKCN 

Csee: Decimal to Binary Integer 
Conirersion) 
CEKCP 

Csee: Decimal to Floating Binary 
Conirersion) 
CEKCQ 



Csee: File Integer Constant) 
CEKCR 

(see: Actual Argument Service Routine) 
CEKCS 

Csee: Constant Arithmetic Interrupt) 
CEKHB macro instruction 663 
CEKHC macro instruction 663 
CEKHD macro instruction 663 
CEKHF macro instruction 663 
CEKHG macro instruction 663 
CEKHB macro instruction 663 
CEKHI macro instruction 663 
CEKHJ macro instruction 663 
CEKHL macro instruction 663 
CEKHM macro instruction 663 
CEKHN macro instruction 663 
CEKJA 

Csee: PHASE2) 
CEKJB 

Csee: Process Label References and 
Definitions) 
CEKJC 

Csee: Storage Assignments for 
Variables) 
CEKJD 

Csee: Label Reference Processor) 
CEKJE 

Csee: Label Reference Processor) 
CEKJF 

Csee: Statement Label Reference 
Inspection) 
CEKJG 

Csee: Format Reference Inspection) 
CEKJH 

Csee: Diagnostic Message Generator) 
CEKJM macro instruction 663 
CEKJO macro instruction 663 
CEKJl macro instruction 663 
CEKJ2 macro instruction 663 
CEKJ3 macro instruction 663 
CEKJ^l macro instruction 663 
CEKJ5 macro instruction 663 
CEKJ6 macro instruction 663 
CEKJ7 macro instruction 663 
CEKJ8 macro instruction 663 
CEKJ9 macro instruction 663 
CEKKA 

Csee: Acquire Entry from Compute and 
Removal Table) 
CEKKB 

Csee: Polish Expression Generation 
Routine) 
CEKKC 

(see: End Loop PRF Entry Routine) 
CEKKD macro instruction 663 
CIKKE 

Csee: Expression Scan Routine) 
CEKKF 

Csee: Pushdown Primitive Operand 
Routine) 
CEKKG 

(see: Variable Compute Point and 
Removal Level Routine) 
CEKKH 

Csee: Triad File Manipulation Routine) 
CEKKI 

Csee: Expression Removal and 
Commonality Determination Routine) 
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CEKKJ 

(see: Check Commonality) 
CEKKK 

(sees Establish Comnon Expression 
Routine) 
CEKKK macro instruction 663 
CEKKL 

(see: Operand List Expression Formation 
Routine) 
CEKKM 

(see: Subscript Expression Revision 
Routine) 
CEKKN 

(see: Canonical Form Routine) 
CEKKO 

(see: Save Popularity Counts for 
Register Assignment) 
CEKKP 

(see: Search and Insert Triads) 
CEKKR 

(see: Phase 3 Master Control Routine) 
CEKKS 

(see: Phase 3 storage PSECT) 
CEKKS macro instruction 663 
CEKKO 

PRF Processing Routine) 



(see 
CEKKV 

(see 
CEKKW 

(see 
CEKIA 

(see 
CEKLB 

(see 
CEKID 

(see 
CEKLE 

(see 
CEKLF 

(see 
CEKLI 

(see 
CEKMIk 

(see 
CEKMB 

(see 
CEKMC 

(see 
CEKMD 

(see 
CEKICE 

(see 
CEKMF 

(see 
CEKMG 

(see 
CEKMH 

(see 
CEKMI 

(see 
CEKMJ 

(see 
CEKMK 

(see 
CEKML 

(see 
CEKMM 

(see 



Begin Loop 1 PRF Processor) 
Begin Loop 2 PRF Processor) 
Label Common Expressions) 
File Constant and Covering Ad€3on) 
Expunge a Removable Expression) 
File CRT Entries) 
Copy and Edit an Expression) 
Loop Test-Expression Generator) 
Real Divide Generator) 
Real Multiply Generator) 
Real Plus Generator) 
Integer Divide Generator) 
Integer Multiply Generator) 
Integer Plus Generator) 
CcxQplex Plus Generator) 
Relational Expression Generator) 
Logical Expression Generator) 
Equation PF Entry Processor) 
External Function Generator) 
Expression Tree Builder) 
Make Initial Assignment to 



General Register) 
CEKMN 

(see: Make Synonym Assignment to 
General Register) 
CEKMO 

(see: Make Initial Assignment to 
Floating-Point Register) 
CEKMP 

(see: Make Synonym Assignment to 
Floating Register) 
CEKMQ 

(see: Select Floating Register) 
CEKMR 

(see: Search General Registers) 
CEKMS 

(see: Search Floating Registers) 
CEKMT 

(see: Find Toaporary Storage) 
CEKMJ 

(see: Maximum Operator Generator) 
CEKMV 

(see: Memory Access Routine) 
CEKMW 

(see: Operand Processing Routine) 
CEKMX 

(see: Release Temporary Storage) 
CEKMY 

(see: Result- Register Operand 
Processing Subroutine) 
CEKMZ 

(see: Local Branch Generator) 
CEKNA 

(see: General Register Availability for 
Integer Divide) 
CEKNB 

(see: Determine Availability of 
Register for Multiplication) 
CEKND 

(see: Select Operand Routine) 
CEKNE 

(see: Weight Subroutine) 
CEKNF 

(see: Select Position for Operation) 
CEKNG 

(see: Select Single General Register) 
CEKNH 

(see: Select Even/Odd General Register 
Pair) 
CEKNI 

(see: Code File Output Subroutine) 
CEKNJ 

(see: CcMmoa Operator Processing 
Subroutine) 
CEKNK 

(see: Arithmetic IF PF Entry Processor) 
CEKHL 

(see: Logical IF PF Entry Processor) 
CEKNM 

(see: Begin Loop 1 PF Entry Processor) 
CEKHM 

(see: Begin Loop 2 PF Entry Processor) 
CEKIK) 

(see: Begin Loop 3 PF Entry Processor) 
CEKNP 

(see: End Loop PF Entry Processor) 
CEKNQ 

(see: Assigned GO TO PF Entry 
Processor) 
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CEKNR 

(see: Computed GO TO PF Entry 
Processor) 
CEKNS 

(see: Assign PF Entry Processor) 
CEKNT 

(see: GO *ro PF Entry Processor) 
CEKNU 

(sees Referenced Label PF Entry 
Processor) 
CEKNV 

(sees Labeled Branch Generator) 
'CEKNW 

(see: Arithmetic Expression Generator) 
CEKNX 

(see: Phase 4 Master Control) 
CEKNY macro instmction 663 
CEKN2 macro instrmction 663 
CEKN3 macro instruction 663 
CEKN* macro instruction 663 
CEKNS macro instruction 663 
CEKOB 

(see: Common Expression Osage Count) 
CEKOC 

(see: Operand Status Routine) 
CEKOD 

(see: Entry Point Processor) 
CEKOE 

(see: RETURN Processor) 
CEKOF 

(see: Complex Multiply Generator) 
CEKOG , 

(sees Complex Divide Generator) 
CEKOH 

(see: I/O Statement PF Entry Processor) 
CEKOI 

(sees I/O List Element PF Entry 
Processor) 
CEEOJ 

(see: End List PF Entry Processor) 
CEKOK 

(sees STOP and PAOSE Statement PF Entry 
Processor) 
CEKOL 

(see: CALL Statement Processor) 
CEKOM 

(see: Open Function Control Routine) 
CEKOM2 

(see: Open Function Processing Routine) 
CEKON 

(see: Register Storage Clear Routine) 
CEKOP 

(see: Load coirering Adcon Routine) 
CEKOQ 

(sees Edit for Code File) 
CEKOR 

(see: Single Operand Locating Routine) 
CEKOS 

(see: Operand Fetch Complement/Store 
Routine) 
CEKOT 

(sees Open 'Function Processing Routine) 
CEKOO 

(sees Open Function Processing Routine) 
CEKOV 

(sees Add by Load Address) 
CEKOW 

(see: Select One Operand in a Register) 



CEKOX 

(see: Open Function Processing Routine) 
CEKOY 

(sees Open Function Processing Routine) 
CEKOZ 

(see: Open Function Processing Routine) 
CEKSA 

(see: FORTRAN Compiler Output 
Generator) 
CEKSB 

(see: Object Program Module Builder) 
CEKSC 

(see: Common Control Section Generator) 
CEKSD 

(see: Preset Data Processor) 
CEKSE 

(see: Output Page Heading) 
CEKSF 

(see: Code Control Section Generator) 
CEESG 

(see: PSECT Btiilder) 
CEKSH 

(see: Internal Symbol Dictionary 
Generator) 
CEKSI 

(see: Object Program Documentation) 
CEKSJ 

(sees Symbol Table Sort) 
CEKSK 

(sees Cross Reference List Routine) 
CEKSL 

(sees Constant Conversion) 
CEKSY macro instruction 663 
CEKSZ macro instruction 663 
CEKS2 macro instruction 663 
CEKS3 macro instruction 663 
CEKTA 

(sees Phase Controller) 
CEKTAA 

(sees LPC to FORTRAN Initial) 
CEKTAB 

(sees LPC to FORTRAN Continue) 
CEKTAC 

(sees LPC to FORTRAN Early End Call) 
CEKTC 

(sees Get Next Source Statement) 
CEKTD 

(sees Process Terminal Modification) 
CEKTE 

(sees Receive Diagnostic Message) 
CEKTF 

(see: Constant Filers) 
CEKTG macro instruction 662 
CEKTH 

(sees Master Input/Output) 
CEKTI 

(see: Analyze Console Source Line) 
CEKTJ 

(see: Inspect a Console Character) 
CEKTK 

(see: Move a Line to the List Data Set) 
CEKTL 

(sees Build the List Data Set Buffer) 
CEKTO macro instruction 602 
CEKTQ 

(see: Compiler Dump) 
CEKTS 

(see: Dump Line Preparation and Output) 
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CiaCTT laacro instruction 662 
CEKTX macro instruction 662 
CEKTY macro instruction 662 
CEKT7 macro instruction 662 
CEKT8 macro instruction 662 
CEKT9 macro instruction 662 
CEKOY macro instruction 662 
CEKOl macro instruction 662 
CEKU3 macro instruction 662 
CEKU4 macro instruction 662 
CEKU5 n^cro instruction 662 
CEK06 macro instruction 662 
CEK07 macro instruction 662 
CEK08 macro instruction 662 
CEKU9 macro instruction 662 
CEKVA macro instruction 663 
CEKVB n^cro instruction 663 
CEKVC macro instruction 663 
CEKVD macro instruction 663 
CEKVI macro instruction 663 
CEKVU macro instruction 663 
CEKVI macro instruction 662 
CEKV2 macro instruction 662 
CEKV3 macro instruction 662 
CEKV5 macro instruction 662 
CE1V6 macro instruction 662 
CEKV7 macro instruction 662 
CEKV8 macro instruction 662 
CEKV9 macro instruction 662 
CEKZB macro instruction 663 
CEKZD macro instructioli 663 
CGO 

(see: Computed GO "TO PF Entry 
Processor) 
Check Commonality 

decision table 105 

flowchart «I51 

routine description 122-123 
Check for Arithmetic Interrupt during 

Expression Processing 53 
Check Limits 

decision table 54 

flowchart 352 

routine description 76 
CHKINT 

Csee: Constant Arithmetic Interrupt! 
CKLIM 

(sees Check Limits! 
Classify Function Name 53 
Clear Limits 

decision table 54 

routine description 76 
CLLIM 

(see: Clear Limits) 
CMSEC 

(see: Common Control Section Generator) 
CMJL 

(see: Complex Multiply Generator) 
CNVRT 

(see: Conversion Subroutine) 
Code Control Section Generator 

decision table 197 

flowchart 6m 

routine description 200-203 
code File 645 
Code File Output Subroutine 

decision table 152 

flowchart 611 



routine description 184 
COMDOMP 

(see: Compiler Dump) 
COMM 

(see: COMMON statement processor) 
Comma Operator Processing Subroutine 

decision table 147 

flowchart 547-549 

routine description 169-170 
COMBiA 

(see: Comma Operator Processing 
Subroutine) 
Cc^mnon Control Section Generator 

decision table 197 

flowchart 613 

routine description 199-200 
Common Expressions 96 
Common-Expression Storage 132 
Common Expression Osage Count 

decision table 144 

flowchart 518-520 

routine description 162 
COMMON Statement Processor 

decision table 49 

flowchart 263-265 

routine description 57 
cc^npiler origanization 3 
compiler executive 8,2 

des cri pt ion 8,2 

flowchart 216-217 
C<»piler File Dump 36 
Cc^npiler Line Dump 36-38 
Compiler Dunqp 11 
Complex Divide Generator 

decision table 147 

flowchart 540-541 

routine description 166 
Complex Multiply Generator 

decision table 146 

flowchart 538-539 

routine description 165-166 
Complex Plus Generator 

decision table 145 

flowchart 535-537 

routine description 165 
Compute and Remove Item Table 108,109 
Computed C50 TO entry 

in PF 643 

in PRF 634,41 
Ccxnputed (30 TO PF Entry Processor 

decision table 142 

flowchart 484 

routine description 156 
concv 

(see: Constant Conversion) 
CONFIL 

(see: Constant Filers) 
Constant Arithmetic Interrupt 

decision table 54 

flowcdiart 335 

routine description 72 
Constant Arithmetic Subroutine 

flowchart 332 

routine description 71 
Constant Conversion 

decision table 197 

flowchart 624 

overview 68-69 
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routine description 212 
constant Filers CCONFIL) 

decision table 20 

flowchart 230-237 

overview 10 

routine description 28-32 
CONT 

Csee: CONTINUE Stat^aent Processor) 
CONTINUE entry 

in PF 644 

in PRF 635,42 
CONTINUE entry to Compiler Executive 2 
CONTINUE Statement Processor 

decision table 49 

routine description 56-57 
control Section Dictionary 189-191,1 
conversion 

decimal to binary integer 74 

decimal to floating binary 74 
Conversion Subroutine 

decision table S4 

flowchart 324-326 

routine description 68-69 
Copy and Edit on Expression 

decision table 104 

flowchart 430-434 

routine description 116-117 
cos EC 

Csee: Code Control Section Generator) 
COVER 

Csee: Load Covering Adcon Routine) 
CPWS 

Csee: Ccxnplex Plus Generator) 
CRFSRT 

Csee: Cross Reference liist Routine! 
Cross Reference Ind^c List 45 
Cross Reference List Routine 

decision table 197 

flowchart 625-^629 

routine description 212-213 
CSD 

Csee: control section dictionary) 
CSX 

{see: Ccxmion Expression Usage Count) 



DATA 

Csee: DATA Statement Processor) 
data management interface 2 
DATA stateaent processor 

decision table 50 

flowchart 292 

overview 44 

routine description 60 
DCL2 

Csee: Declaration Statements, Pass 2) 
DCOM 

Csee: Open Function Control Routine) 
Decimal to Binary Integer Conversion 

decision table 55 

flowchart 347 

routine description 74 
Decimal to Floating Binary Conversion 

decision table 55 

flowchart 348 

routine description 74 
Declaration statements final processing 51 
Declaration stateiients. Pass 2 61 



Definition table 191-192 
Determine Availability of Register for 
Multiplication 

decision table 151 

flowchart 588-589 

routine decription 176-177 
Delete the Undefined Level Subroutine 115 
Determine Fall-Througb on GO TO and IF 

statements 53 
diagnostic information 17-19,21 
Diagnostic Message Generator 

decision table 83 

f lowcharc 375-378 , 401-402 

routine description 91 
DIMENSION Sea cement Processor 

decision table 49 

flowchart 262 

routine description 57 
Dimension Table 44 
DIMN 

Cat^e: DIMENSION Statement processor) 
DO 

iB&Bt DO Statement processor) 
DO loop processing 136 
DO statement Processor 

decision table 50 

flowchart 268 

routine description 57 
documentation, object program 2 
Dump Line Preparation ancE Output 11 
DUNL Subroutine 115 
DX 

isee: Diagnostic Message Generator) 



EDIT 

Csee: Edit for Code Fxle; Object 
Program Docus^ntation) 
EDIT for Code File 

decision table 151 

routine description 184-185 
edit iiii,es3 17,16 
EF 

Csee: Expression File) 
EKKSB macro instruction 663 
EKKSC macro instruction 663 
END 

Csee: END Statement Processor) 
END FILE entry in PRF 43 
End List entry 

in PF 644 

ill PRF 635,43 
End List PF Entry Processor 

decision table 144 

flowchart 511 

routine description 158-159 
End Loop entry 

in PF 644 

in PRF 635,42 
End Loop PF Entry Processor 

decision table 103 

flowchart 502-507 

routine description 157-158 
End Loop PRF Entry Routine 

flowchart 419-420 

routine description 113 
End Loop Processor 

decision table 143 
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flowchart 351 

routine description 75-76 
ENDLP 

(see: End Loop Processor) 
End Program Entry 

in PF 645 

in PRF 636,43 
END statement processor 

decision table 51 

flowchart 301 

routine description 61 
ENDLP 

Csee: ENDLOOP PF Entry Processor) 
ENT 

(see: Entry Point Processor) 
Entry Point Processor ,> 

decision table 141 

flowchart 472-473 

routine description 153 
EQUA 

(see: Assignment Statement Processor) 
EQUAT 

(see: Equation PF Entry Processor) 
Equation entry 

in PF 642 

in PRF 633,41 
Equation PF Entry Processor 

decision table 141 

flowchart 475 

routine description 155 
Equation Statement Processor 49 
EQUI 

(see: EQUIVALENCE Statement Processor) 
EQUIVALENCE Statement Processor 

decision table 49 

flowchart 266-267 

routine description 58 
ERF 

(see: Expression File) 
ESC 

(see: Esctract Source Character) _ 
Establish Common Expression Routine 

decision table 105 

flowchart 450 

routine description 123 
EXCOM 

(see: Phase Controller PSECl^l 
EXEC 

(see: Compiler Executive) 
EXEC2 

(see: Executable Statement, Pass 2) 
Executable statements final processing 52 
Executable Statements, Pass 2 

flowchart 302 

routine description 61-62 
Executive 

flowchart 216-217 

routine d^cription 8,2 
Expand Statement Function Reference 53 
EXPF entries 69 

Explicit Type Sta tenant Processor 49 
EXPR 

(see: Expression Processor) 
Expression File 43,640-641 
Expression Processor 

flowchart 311-323 

routine description 64-68 



Expression Removal and Commonality 
Determination Routine 

decision table 104 

flowchart 445-449 

routine description 121-122 
Expression Scan Routine 

decision table 103 

flowchart 427-429 

routine description 115-116 
Expression Storage 132 
Expression Tree 131 
Expression Tree builder 

flowchart 515-516 

routine description 159-161 
Expunge a Removable Expression 

decision table 105 

flowchart 454 

routine description 124 
EXTE 

(see: EXTERNAL Statement Processor) 
External Function Generator 

decision table 147 

flowchart 544-546 

routine description 168 
EXTERNAL Statement processor 

decision table 49 

flowchart 251 

routine description 56 
Extract Source Character 

decision table 54 

flowchart 336 

routine description 72-73 



Fa 11 through Determination 

flowchart 374 

routine description 79 
FALTH 

(see: Fallthrough Determination) 
FCNV 

(see: Decimal to Floating Binary 
Conversion) 
FCON 

(see: File Control Statement Processor) 
FEEP Subroutine 115 
FETCH 

(see: Operand Fetch Complement/Store 
Routine) 
File Constant and Covering Adcon 

flowchart 465 
File Constant and Covering Adcon 

decision table 105 

flowchart 465 

routine description 126-127 
File Control entry 

in PF 644 

in PRF 635 
File Control Statement Processor 

flowchart 271-272 

routine description 58 
File CRT Entries 

decision table 105 

flowchart 453 

routine description 123-124 
File EF and Point Subroutine 115 
File Integer Constant 

decision table 54 

routine description 74-75 
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File Real Constant 

decision table 5<l 

flowchart 345 

routine description 74 
Find Temporary wStorage 

decision table 152 

flowchart 60 8 . 

routine description 183 
FLABL 

C see: Format Label Processor for I/O 
Statements) 
FLIC 

(see: File Integer Constant) 
FLRC 

(see: File Real Constant) 
FLUSH 

Csee: Flush the List Data Set Buffer; 
Register Storagt^ Clear PoiT.tlneH 
Flush the List Data Set Buffex: 

decision table 152 

flowchart 245 

overi^iew 11 .: . 

routine description 36 
FNAME 

Csee: FORMAT or NAM;i£LIST Hnme 
Processor) 
FNCLS 

Csee: Function Claims if ier) 
FNDAR 

Csee: Search Genecal Registers) 
FNDFR 

Csee: Search >^loatia*j Registers) 
FNDWS 

Csee: Find Te«]porary Scorage) 
FORM 

Csee: FORMAT Stateine.^.t Projeosor) 
Formal Argument Adeoti Tf ble 10*> 
FORMAT ^ 

Csee: Format Reference Inspection) 
Format Label Processor for I/O Stat€ia«its 

flowchart 357 ^: 

routine iieJicription 76 
FORMAT or NAMELIST Name Processor 

flowchart 359 . " 

routine description 76 
Format processing 44 
FORMAT Reference Inspection 

decision table 83 

routine description 91 
FORMAT Statement Processor 

decision table 50 

flowchart 279-2^4 

routine description 58-59 
FORMAT Symbols 

encoding of 58-59 
translation of 59 
FORTRAN Compiler Output Generator 

decision table 196 

routine description 195 
FSCAN 

(see: Process Label References and 
Definitions) 
FUNC 

Csee: External Function Generator) 
function call 67-68 
Function Classifier 

flowchart 330 

routine deticriptior* 70 



General Register Availability for Integer 
Divide 

decision table 150 

flowchart 590 

routine description 177 
Generate.. End -Loop 53- 
Get .Next -Sources Statement 

flowchart.- 223-226 

overview 9 

routine description 24-26 
GIRL 106-107 

global registex assignment 101 
Global Register list 106-107 
General Register Selection 134 
GNSS 

C see: Get Next Source Statement) 
GOTO 

Csee: GO TO PF Entry Processor: GO TO 
Statement Processor) 
GO TO entry in PF 

Assigned 643 

Computed 643 

Unconditional 643 
GO TO Entry in PRF 

Ass.igned €34-'^ 

Computed 634 

Unconditional 633 
GO TO PF Entry Processor 155 
GO TO Statement Processor 

decision table 49,142 

flowchart 252-255 

routine description 56 



I/O library subprograms 2 

I/O List Element PF Entr/ Processor 

decision table 143 

flowchart 509-510 

r ou i i ne des cr ipt ion 158 
I/O List Entry in PRF 43 
I/O List Processor 

decision table 143 

flowchart 353- 35 S ' 

routine description ,, 76 
I/O Statement. PF 'Entfy Processor 

flowchart 508 

routine description 158 
I/O statement' processor 

decision table 50 

flowchart 273-278 

routine description 58 
1/0 statement proceissor routines 45 

icNv ;'f; 

Csee: Decimal to Binary Integer 
Conversion) 
IDATA 

Csee: Initial Value Data Specification 
Processor) 
IDVDE ■ ■ '-' ' ' 

Csee: Integer Divide Generation) 
IF 

Csee: IF statement processor) 
IF entry in P# ' • 

aritlimetic 643 

logical 643 
IF Entry in PRF 

Arithmetic 634 

Logical 634 
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IF statenent processor :-:^ 

decision table «I9 

floiichart 256-257 

routine description 56 
IMPL 

Csee: IMPIalCIT Statemeiit Processor) 
IMPLICIT stat^nent final "processing 51 
IMPLICIT Statement Processor 

decision table 50 . 

flonchart 293-295 

routine description 60 
IMPLICIT Statements t'^ass 2 62 
IMPLY 

(see: Integer Multiply. Genera-tor) 
IMPL2 

(sees IMPLICIT Statements, P^^s 2) 
IHITIAL entry to Coo^iler Executive 2 
Initial Value Data Specification Processor 

flowchart 360-361 

routine description 11 m 
Initial Value Processing routines 45 
Initial Value Processor ^ r/ 

floncliart 362-367 

routine description 77 ? 
Initialize for Statement function 

Definition 53 . / 

Input List Entry t. . 

in PF 6115 

in PMF 636 , . . 

input/ output ^ ^ 

(see I/O) 
mscON ^ 

(see: Inspect a Console Character) 
Insert Variable in Symbol Table 

decision table 55 ? 

flowchart 3il6 

routine description 1^ 
msoT 

(see: Code File Output Subroutine) 
Inspect a console Char act ^ 

flowchart 242 , 

overview 11 

routine descript^ion 35 ^ 
INTBLE format 87, 
Integer Divide Generator- 

decision table 146-147 

flowchart 532 ^ _ c, 

routine description i 64 
Integer Multiply Generator 

decision table 146 

flowchart 529-531 

routine description 164 
Integer Plus Generator 

decision table 145 

flowchart 528 

routine description 163-164 
Intercom Table 650 

Internal SyiiA)ol Dictionary 194-195,2 
Internal Symbol Dictionary Generator , 

decision table 197 

flowchart 619 

routine description 206-207 
Interphase file controller 12-13,14 
INVOKE maoro instruction 659-660 
lOLST 

(see: I/O List Processor) t 
IPLOS 

(see: Interg^t Plus Generator) 
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(see: Statement Label Reference 
Inspection) 
ISD 

(see: internal %ymbol dictionary) 
IVAL 

(see: Initial Value Processor) 
IVST ■■^--' 

(see: Insert Variable in Symbol Table) 

KEY 

(see: Operand Status Routine) 
KEYl r 

(see: Single Operand Locating Routine) 

Ll^ 

(see: Label Reference Processor) 
Label COBOi^n Expre^^on 

decision table 1^05 

flowchart 452 1 

routine description 123 
Label Definition Entry in PRF 41 
Label Entry in PF 642 
Label Reference Processor 

decision table 83 

flowchart 398-400 

routine description 90 
Label String Processor 

flowchart 370 

routine description 77 
L^EL 

(see: Referenced^ Label PF Entry 
Processor) 
Labeled Branch Generator 

decision table 150 

flowchart 378 

routine description 173 
LIkBL 

(seet Stat^siient Label Processor) 
LMOR c 

(see: Add by Load Address) 
language processor controller 2 
LBL 

(see: Labeled Branch Generator) 
LBSTR 

(see: Label String Processor 
LDMOVE 3/ 

(see: Move a Line to the List Data Set) 
LDPNT macro instruction 663 
LIBN 

(see: Library Function Selector) 
Library Function Names 71 
Library Function Selector 

decision table 54 

flowchart 331 

routine description 70-71 
LIF 

(seet Logical IF PF Entry Processor) 
LINDUMP 

(see: Dump Line Preparation and Output) 
linkage conventions 657,8 
Load Covering Adcon Routine 

decision table 151 

routine description 
Local Branch Generator 

decision table 151 

flowchart 577 

routine description 172-173 
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I^>gical Expression Generator 

decision table 1MB'- ■'•■(■:■•■ 

routine description 167 
I^>gical IF entry 

in PF 613^^ . '-c: ■ 

in PIF 63ilt*l2 ^ 
Logical IF PF Entry PiroCessor 

decision taM<fe»' l^a : - " -.■ % ^-^ . -• 

flowchart"' ■■ %310 ■ 'r':7 ■ ■ 

routine description 155 - -^ 

loop . C-„ .:. .■_*.'■ 

table 137 %\; , -• 

processi-3^. routines* .--25' ^^ -^ - ■ - 
remoiring ejrpr«BSloiis- f roM 9# 
variable expressions 100 * 

Loop Test-Expression Generator 
decisi^^^tt: table -^ ll>ft^-"'^ ..^ ^-^f '': 
flowchart il66-il71 
routine description 127-128 

LPC -I • i-x;'^->i ■•:- . 

tseet language processor controller! 

LPC to FOSTRMI Contdlnae 22-23 

LPC to FORTRAN Early End Call 23-24 

LPC to FORTRAN Initial 20,22 



macro instiuctiona €6:2-663^8 
mmke Initial Assignment to Floating* Point 
Register ^^ »"■ '' ■ 

decision table 151 

routine description 1S2 , 
Make Initial Assignment to f^eneral Register 

descision table 152 

flowchart 605 -c 

routine description 181?-182 
Make Synonym Assignment to Floating 
Regrister y.-.' ^ r " ■ 

decision table l^i*: ^ 

flowchart 607 

routine descriptiati 182-183 
»ike Synonym Assigns^tetit to 'General Register 

decision table 1<I4 *: 

flowchart 606 

routine description 182 
Master Input/Output Root inc; . . 

flowchart 238-239 
'' Qi^tT^mg 10 .: .. *^ ■ ■ ' -. 

routine description 32-3* / 
mathematical subprograFis 7 
MAX ■; ^ . • , 

fseet Maximum Op^'at,o?: Cren^r&torl 
Maximum Operator Generator 

decisicm table l«i 

flowctiart-- 5%3 :■ -kji-. ' " .^- , 

routine description 167-168 
Mamc :. . . ^ . . 

Csees Memory Ace^s Roiitlnc^r 
Mai^ry Access Routine.? -■■' .. :. - 

-decisicm table ,151 

fllawcdiart 575-576/. -^ • 

routine description 172 
Memoi^ JtesignmeBtBMfow Variables .> ,. \ 

flowchart 379-389 
Mttiiory Reference Proc'^^ssiiig 96.,- -.'.■, 

MIO t^.: • ■ • ■ I. 

Csee.1 ^iiaster laput^/Cwtputl. i '';■*>.-.. . 

MOD "cT-M-^r*:- -.■„'.• . r x:-. 

Csees Processor-•^1&enli10».l'•^'"Mod:ific»tion> 



Move a Line to a List Data Set 

flowchart 2«I3 

overview 11 

rox2tine description 35-36 
MRI€ Table 133 
MRMFR Table 134 



Name Table 133 

Niy^CL . ... :•....•.. 

(sees NAMELIST Statement Processor) 
HM^BI^IST, Nasie Processor 

(sees FORMAT or ^NAM?LIST Name 
Processor) 
NAMELIST statement processor 

decision table 5.0 ^ ; 

flowchairt J99-29p 

routine description ^ 60 
NAMEI^ST Table 4*1 
NDLST 

(sees End Lift PF Entry Processor) 
Nonassignment 

Character Table 78 

Preceden?oe Table 78 

Type Statement Identification 79 



object Program Docmi^ntation 

decision table 197 

flowchart 620-622 

overview „2 - .■. ,-.; 

routine description 207-211 
Object parpgifam modul^^ 187,1 
Object Program Module Builder 

decision table 19,7 

flowchart 612 

routine description 198-199 
OLIST 

(sees I/O List Element PF Entry 
Processor) ,. j 
Open Funirtion Control Routine 

decision table 148 

flowchart 550 

routine descriptioii . 170 ^ 
Open Function Brocjgsjssiiig Routine COPENl) 

decision table 149 

flowchart 551-556 

routine description 170 . 
Open Function Processing Routine COPEN2) 

deoisioj:'. tab|le 1%9, , 

flowciiart 557-559 : 

rputij^e de^piption ^ 171 
Open Function Processing, Routine COPEN3) 

decision table l«f9 „ ■ 

flowchart 560-562 . 

routine description 17i 
Open Function Process i^g Routine (0PEN4) 

decision table 149 

flo%*chart 563-566:^ 

routine description 171, 
Open Function Processing Rou1;ine (OPEN5) 

decision table 150 ^^ ^ 

flo%*chart 567-572 , : ^ 

routine description 171 , \ 
Open Function Processing. ^qiit;ine (OPEN6) 

decision table 150 .^f 

flowchart 573-574 

routine description 171-i72 . 
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OPENl ^ - 

Csees Open Function Processing Routine) 
0PEN2 ^ V 

(see: Open Function Pr6c€ssing Routine) 
0PEN3 ' 

see: Open Function Processin^^ Routine) 
OPENil 

(see: Open Function Processing Routine) 
OPENS 

(see: Open Function Processing Routine) 
OPEN6 

(see: Open Function Prbces^ing Rontdlie) 
Operamd Fetcli Complesient/Store Routine 

decision table 150 

flowchart 579 i > 

routine description 173 - * 
Operand List Expression Fomation ' Routine 

decision table lOft 

flowchart 439 '" ^ : ■ I r- 

routine description 119-120 
Operand Processing Routine ' ^ 

decisicHi table 151 '' "^ • - > 

flowchart 595-596 ' " 

routine description 178-1 79^^ 
Operand Status Routizier ^ 

decisimi table 151 

flowchart 591 

routine descriptibh-' 177 
Operator precedence 66 '^ 
OPM 

(see: object^ program module) 
OPND ^^' 

(see: Operand Proc^essing Routine) 
Optimizing subscripts 98 
Output Mst Element Entry 

in PF 644 

in PRF 635 
Output Page Heading 

decision table 193 

routine description 212 



Pass 1 Statement Processors 45 
Pass 2 Stat^nent Processors 45 
PMISE Entry 

in PF 645 

in PRF 636,43 
PAOSE Stateinent Plf Entry Processor 

(see: STOP and PKX3SB Stateii^t PF Entry 
Processor) 
PMISSf S70P« REXtTRH ^tatieoent ptbce^sor 

decision table S2 

flowchart 285-287 

routine description 59-60 

PF ^ . r ■■■.-■--•.;,., ■ 

(see: Program File) 
Phase Controller 

floiw:hart 218-222 

overview 9-' '^■"' ■- 

routine description 12-13,14,20 
Phase CcHitroller PSECT 11 
Phase 1 3,39-40 
Phase 1 Main loop 

decision table 48 ' ^ 

flowchart 246-249 ^ 

routine description 55 
PlMise 2 4- ~^-^ '' . 



PHASE2 : 

decision table 83 

routine description 82 
Phase 3 92,6 
Phase 3 Master Control Routine 

decision table 102 

flowchart 403-40il -" 

routine description 109-110 
Phase 3 Storage PSECT 106-109 
Phase 4 129,7 
Phase 4 lister Control 

decision table 141 

routine descripti^em 153^154 
PHASE4 (see: Phase ,# Master Ccmtrol) 
Phase 5 186,7 ^ . 
PHASE5 

(see: FORTRAN Coii^iler Output 
Generator) / 

PHC :t.: 

(see: Phase Controller) 
PHl^D on 

(see: Output Page Heading) 
PHIM .. - : 3 ^. 

(see: Phase 1 Main loop) 
PMD 

(see: program module dictionary) 
Polish Expression Generation Routine 

decision table 10^3 

flowchart 459-463 

routine descriptiidn 125^126 
Preset Data Processor . • 
'•■•::' decision'- table .Itt-. "..-.■ 

flowcdiart 618 

routine description 206 
Preset Data Tables 6^39-640 

PRF ■ ^H--; ;. • . 

(see: Program Representation File) 
PRF Processing Routine 
decision table 103 
flowcharts 407-418,: 
routine description:: 110-113 
PRINT entry 
in PF 644 
in PRF 635,43 
Process and (venerate Begin Loop 

Elements 53 k 
Process Array deraension specification 52 
Process END and ERR jKtat^cmient numbers in 

READ statement 52 .Ti; 
Process eacpression 52 

Proc^is FORMAT and Nl^iELIST name in I/O 
stat«ieiit 

decision table 52 
Process FORMAT statement number in I/O 
statem^at ." '■• m „■ ; , 
decision table 52 
Process Function Argument 53 
Process I/O statement list 52 
Process initial data iispecif icatioi^ 52 
Process initial valued in DATA or type 

statement 53 
Proems Label References and Definitions 
decision table 83 
flowc^hai^ 390- 39m 
routine description 88 
Process Label Stringidn Assigned aind 

Coi^mt^ GO TO Statement 52 
' Process 1* Statement^'^Nulcd>er 53 
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Process Subscripts 53 
Process Terminal ^Itodificatidns 

floii^art: 227-228 

oversew 9 ^ 

routine description 26-28,651--651 
Progran File 641-645 
Program moudlfe dictidnaaiy 187-189,1 
Program R^preseetatidh File 40-43, 631-633 
PRSEC 

Csee: PSECT Bttilderl 
PSECT Biiiider -'^:~^ ■-':''. '.m . •■• 

decision table 197^ •-./■;- 

flowchart 617'-' :."::.:-, -c •, .-i : - 

routine description 203-206 

PSR ■ ■ ^- : *- ■ •- ^ 

Csee: PAOSE, STOP, RETORN Statement" 

PUNCH entry 

in PRF 635,43 ^■^■'- ^ ^ • ''r : : \. ■- 
Pushdown Premitive Operand Routine- 
decision tabled 1^9^- " ^'^ 
flowchart 435-436 t - 

routine description 118-119 



RB ■■■- ^'~- ■-"■- •''''■ ' --■ 

Csees I/O Statement PF Entty Processor) 
RDI¥ 

Csee: Real'MirMe- cseneitator) •:'■'-■" 

RBM '; o. ^ -■ ' 

Csee: Receive Diagn^^ti^"Hl2gs4ge): "' 
REIIJD entry " ■'• ' •■ -■-■ - • ■ •^-. ■ •■ ^ 

in PF 644 :■- -'- ' ■: :'.r-.>r. ,. ■ 

in PRF 635, 42 ^ *' ■• '' -' -^ " '■ ^ - - " : ^ -- > " " 
Read Transfer Prace'sstir-' for'^-l/O^stat'eniefits 

flowchart 3'SW- -":>'• ^ ' • - - • ■ -'/- •■ ^i • ^^ p ■• ^ ■■ 
■ routine' descripticm^ - 7€' •'. " ' - ■ ■ ; . • 
Real Divide GenetatiM--' -' .'-^■■' ^''-^ ''^"^ 

decision table 1;4.7'^- " -' ■■••-^ ."-^ ■' 

flowcdiart 526-527 

routine • description- ■ 163 ' ■"'- ' * "> ■ 

^eal Multiply Generator 

'*»cision table 146 
■ ■ -^ i^cv^'Hairt ■ S2t&'^S25 ' :• ,'.• ::. ■ ' < 

routine description 162-163 
R^l Pli^ Generator '■■"■. ^ ■ -"^. ••^v ■■ 

decision table 145 ■- ?'.^^.... i^:.--:; ' ^•"■:: 

flowchart 521-523 ^ * 

routine description 162 « ^ ':..=•'... 
Receive -Oiagilixsti'e-liessage ' ' c.:i r ■. w: - ;•. 

flowchart 229 

overview 10 - '•' ■^*- - - i.t .;c*^j#' \. 

routine description-' "28- -■ *: . 
Reference^ Table:- ■ 'lS2'i::- '"'^ - ^' --■:■ ria: ■ •;. - -v- ■ •'• 
Referenced Label PF Entry Proce^smrr 

decisi«»i table ••^■' IHI*'-- ■ >"•'■.: i:--^"-. : 

flowchart 474 

routine descripti"0^ 15S-1S5 3 
register ^'-^ • 

conv^itions 9 

notation *9 "■''>• ^:^: -^'^^ "■■•■ •■ ' ' 

storage 133 ■ --i'^*^- •-'. --"^ - -■ ::■:,. ..-y r- - . 
Registier-' Storage- Clear'" '^.outine ' -.-" ■ 

flowchart 610 -• 

routine description'-*' I'-iS- 18 1|-» -:^:- ': ••' 
Relational Expression Generatior 

d^ecision table"^ • 14#'-- •^''^' * :' . •' ?••• 



flowchart 542 

routine description 166-167 
Release Temporary Storage 

decision table 152 

flowchart 609 

routine description 183 
Relocation Dictionary 192-194 
restricted linkage conventions 658 
Result-Register Operand Processing 
Subroutine 

decision table 151 

flowchart 597 

routine description 179-180 
RESUME macro instruction 660 
RETDRN entry 

in PF 643 

in PRF 634,42 - : 
RETURN Processor 

decision table 142 

flowchart 486-488 . ; 

routine description .156 : 
RETURN statement processor 

Csees PAOSE, STOPv RETUPH statement 
processor) 
REWIND Entry in PRF 43 
RII> 

Csees Relocation Dictionary) 
RLSWS ... . ^ 

Csee: Release Temporary Storage) 
RI.TNL .-• t 

Csee: Relational Expression Generator) 
IMJL ^-^ •■ --■■ i. - 

Csee: Real Multiply* Generator) 
■RPmS 

Csee: Real Pius Generator) 
RSLT - ..-^■£- .-" - - •■ 

Csee: Result- Register Operand 
Processing: StibiKout if le) 
RTNl 

Csee: I^ibeliRef erence Processor) 
RTRAN . ^- ■ ' -:-...^-... --,..,. 

Csee: Read Transfer Processor for I/O 
Statements) 
RTRm : ■ -■ ' A- t .;..: - : . .. . .:,. --. 

Csee: RETURN Processor) 

RWIO .. •■. >v.-.'. y - ■ --ijr- 

Csee: Input/Output Statement Processoi) 

Csee: Local Branch Generator) 
Save area format 657-658 
Save Po|»ilarity' Counts for Hogister 
Assignment 

decision table 105^ ^ 

flowchart 464 

routine description. 126 
Search and Insert Triads : 

decision table 196c - :. 

flowchart 44.2-^ •■ .: ■■ --■ ::,.:,: 

routine descriptiism^^ 12©^-! 21 • -h 
Smirch Floating Registers 

decision : table 151 e , - 

flowchart 594 - t 

routine description 178 

Search General Registers i - 

?.-" decision table- ".1S2:.^ -•■^■.-..^.-•' 

flowchart 593^ ..t.^;-;-'^. -.:>„:•■„ 

routine description 178 .: 
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SELDR :■ " -. :::;:. ,. 

Csees Select Even/Odd Q^n^^^l Regist:#r 
Pairl . ,^ 

Select Eveii/Oiid General Register Pa^ir 

decision table 151 ; 

f lotfchiart 600-601 

routine description 181 
Select Floating Register 

decision table 151 n 

floiic^art 602-604 

routine description 181 
Select One Operand in a Register 

decision table 150 -r :: ♦ . 

floiichart 58«l-587 ^ H ': 

routine description 175-176 
Select Operand Routine ; , ^ : 

decision table 150 

floncAiart 580-581 ^i . 

routine description 113^175 
Select Position for Operation 

decision table 150 m : :v 

flowEtiart 582-583 

routine description 175 ; 
Select Single General Register - 

decision table 152 

floifctiart 598-599 j 

routine description 180-181 . 
SELFR :j': f . 

Csees Select Floating Register) 

(see: General Register AvauLlability €or 
Integer Divide) ^ 
SEIdGM 

(see: Determine A^^ail ability of 
Register for Multiplication) 
SEIjOP - 

(see: Select Operand. RDutine) 
SEIiSR 

(see: Select Single General Register) 
service routine interface 11,12,2 
service subprograms . 2 i 
SFDEF 

(see: Statement Function Definition 
SFEXP 

(see: Stat^aent Function Expansion) 
iSID •. . -t 

(see: Statement of Identi^f ication) 
Single Operand liOcating Rcxitine 

decision table 151 

floiK*iart 592 

routine description 177-178 
SI/>NE 

(see: Select One Operand in a Register) 
SUE»OS 

(see: Select Position for Operation) 
Source conversion routines fl^5 
Source Extraction roisitinea U5 ■ 
source statement preparation 12/, 11 
Source Statement. Id€srfetifdcatiLon 49 
SPECS •:-;■;-:- . . 

(see: Preset Data Processor) 
Stat^nent Function Definition 

floif<:hart 327 

routine description 69-70 
Statement Function Definition, Pass 2 63 
Statement Function Expansion 

flowchart 328-329 

routine description 70 



Statement Function Stf j^ement F^nal „• 
Processing 51 ■;, 5 . j , ^ 

Statement ID numbers 79 ^ v 

Statan^it Label Processor , . 

flowchart 372-373?^ ^J : 

routine description 78-7?^ . 

Statement I^belRefer#)^ce3 inspection ; 
decision table 83 
routine description; M * 

Statement of Identification 

flowchart 371 ; < 

routine description 78 ^^i - 

(see: Storage Class Table) 
STFN2. ,qr^ • '■,'■'■: . , - .2 

(see: Statement Function D^fikniti on. 
Pass 2) ..-•;- ,..,•, .;■ '■ ^ 

STOP and PAOSE Statement PF Entry PrOjC<pssor 

decision table 144 ^ >: 

flowchart 512. -qO -■ •.■■.- -^ ■A^nr:,y:^,, : 

routine descriptioiii 159 ^ - ^ 
STOP Entry ^t: ■_ > 

in PF 645 act ■ .■--: - -v 

in PRF 43 
STOP Statement processor 

(see: PAOSE, STOP, RETORN Statement ,« 

.processor)' : 3£?s'-.^.- ? jr ». ■ -^^^-^eif 
STOP : - 

(see: STOP, undsPAP^lpJJtat^mentF?? Entry 
Processor) ^^, 

Storage Assignments f 01: Vac^i^i^les < 

decision table 83 hl--' 

routine description 81 t^^/ :- r 
Storage Class Table 641,1411, „ j 
3torage map executivea^rxjutine. 9ri0 t ,-:. 
Storage Reference Processi^^ 135 / 
Storage Specif ication T^^bles 636-639*43,44 
STORE macro instructiiwp, ^^ 66,0 
STPNT macro instruction 663. 
SOBE ■'"; :. ■ -,, ,:,! ■■ 

(see: Subprogram Jtotry Stategaents 

Processor) ■ - - -■ y --^ ■ • . i ^ ^^ "-• . .- 

SIIBE2 

(see: Subprogram Entry Statements « Pass 
2) • - . :^a.y..: : . ... 
subprogx-am calls 1 k 
Subprogram Entry - ?: 

in PF 642 i ^ 

in PRF 633,41 : jv : - 

Subprogram Entry Statg^pient; Processor . 

decision table 51 

flowchart 296-300 r 

routine descripti<m, 61. 
Subprogram entry statements^ final 

processing- 51 •. .id \;': . -. . . •....".. 
Sul^rogram Entry Statamex^s^ Pass 2 

flowchart 303 

routine descriptiQja,-c62r ^ 
subroutine call 67-68 
SOBS . . V 

(see: Subscript Processor) 
subscript optimization 98 
Subscript Expressipn^B^^Fision Routine ,._ 

decision table 104 

flowchart; 455-45r7r --.. t - 

routine descriptic^ ; ^24- ; 
Subscript Expressioi^4 ; 43 ji ;/ 
Subscript Processor 
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tmw^^rt 333 
Tltri^ 152 

fi^rm 152 

TmmS' 152 

TEirf2, 152 
TE¥I% 152 
TEVHB* 152 
TEtE% 152 
TKVmf 152 
TEVm 152 

THBUa , 

Triad File lia.fiipmi«ti-t^m---'RoiJti«i-^' 
ae<:i^cw ^table ' 1^-t- 
f ioifc^ark ft m*^ t ^1 , 
routine descrip^i» 1-:^ 

fr4m# -Tabic 101^1§t= 



Cs€«T- Term Frocftssor)' 

(seet--- T^m^ StM^teme^a-- proe^sor) 
Type St«ii&-em^i^€s^ Pr»€€tssoir.' 
flo^^liart 25a-2'61. 
rotttria'e description- 56 



tJiicoiidi'*SoBai GO; fO.- entry 
in WE m3 
in PMF 63J 



Variable Concfi^te Point" atid- Re^oita'l, ...Leirel 
Romtine 

deciSioRr ta^ie 105 

f lowclia.xt • MT- %-3.t:- 

routine- deacxiptiom' US-' 
VSCAN 

C sees' Stoia^e Es^i'^n^oits for 
Variables-I- 
VBCJmi 8ft 
VSCA1I2 8ft^ 
V^mN3 B3 



Weigbt^ Subroiitiii* 

decision taMe Ift-ft- 

floiwAart SIT 

routine de^riptio«, 161 
WGWE 

Cs#et Weight. Stibroutine) , 
wjrk ai:eas ll'-l.lclft^'-l^S 
WRITE entJTf 

in FF 6fti|* 

in FKF 635:^.rj: 
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